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ABSTRACT 


This  thesis  presents  a  database  application  in  the 
area  of  inventory  management  of  classified  material. 
The  system  is  designed  for  shipboard  application,  but 
can  be  used  in  the  shore  establishment  as  well. 

A  simple  database  using  dBASE  III  PLUS  is 
implemented  on  an  IBM  PC.  It  is  designed  for  users  who 
have  very  little  computer  experience. 
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I.  INTRODUCTION 


Inventory  management  of  classified  material  is  of 
vital  importance  to  the  armed  forces  of  the  United 
States.  There  has  been  an  increasing  threat  to  military 
secrets,  which  prompted  considerable  changes  in  the 
area  of  inventory  management  of  classified  material. 
Much  of  this  increase  can  be  attributed  to  the  growing 
complexity  of  intelligence  gathering  activities  of 
foreign  nations;  however,  this  thesis  will  examine  only 
the  problem  as  it  relates  to  inventory  management  of 
classified  publications  held  by  ships  in  the  U.S.  Navy. 
For  a  commanding  officer  of  a  ship,  it  is  imperative 
that  inventories  of  classified  material  be  performed 
accurately  and  effectively.  To  achieve  this  goal,  the 
ship’s  security  manager  needs  a  modern  database 
management  system  that  will  provide  an  accurate 
inventory  listing  and  quick  access  to  information  when 
requi red . 

A  modern  database  management  system  permits  greater 
flexibility  in  meeting  information  requirements,  faster 
response  time,  better  data  security,  and  easier  access 
to  stored  information  than  earlier  software  systems 
although  at  a  greater  cost.  However,  these  benefits 
(along  with  greater  accuracy  and  increase  productivity) 
strongly  justify  the  necessary  large  capital  and 
manpower  investments.  Perhaps  the  most  exciting 
development  of  such  systems  is  the  number  of  available, 
easy  to  use  query-type  languages  which  permit  novice 
users  to  create,  update,  maintain,  and  extract 
information  from  their  own  files. 

During  the  database  development  process,  users’ 
requirements  are  translated  into  system  requirements 
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using  application  programs  or  the  Database  Management 
System  (DBMS)  itself.  The  normal  form  concepts  of 
relational  database  models  are  applied  to  develop  a 
database  for  the  inventory  management  of  classified 
material  to  be  used  onboard  Naval  ships. 

This  thesis  focuses  on  a  database  application  for 
maintaning  inventories  for  the  Secret  custodian.  While 
this  application  could  be  used  by  both  Top  Secret  and 
Secret  custodians,  it  is  the  intention  of  this  thesis 
to  concentrate  on  the  Secret  custodian’s  inventories 
system  needs.  The  Relational  Model  was  applied  to 
design  this  inventory  database  system. 
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II.  BACKGROUND 


A.  PROBLEM  DESCRIPTION  AND  ORGANIZATION 

As  a  result  of  the  well  publicized  spy  trial  of 
former  Radioman  Senior  Chief  Whitworth  in  1984,  the 
Navy  launched  a  more  extensive  campaign  to  improve 
accountability  of  classified  materials.  Stringent 
standard  procedures  are  published  in  the  Chief  of  Naval 
Operations  Instruction  5510.1,  Fleet  and  Type 
Commanders  directives.  This  guidance  is  incorporated 
into  a  ship's  own  instructions.  While  these  voluminous 
instructions  attempt  to  cover  all  contingencies,  the 
problem  encountered  by  the  security  managers  onboard 
ships  was  one  of  trying  to  manage  a  large  body  of 
information  with  very  little  assistance  in  the  area  of 
inventory  management. 

One  officer  is  normally  assigned  as  security 
manager  on  each  Navy  ship.  One  of  his  many  duties  is  to 
ensure  that  all  classified  materials  onboard  are 
properly  accounted  for.  The  security  manager  normally 
controls  any  access  to  Top  Secret  publications.  In 
order  to  minimize  this  access,  the  security  manager 
physically  must  conduct  inventories  and  control  access. 

The  immediate  assistant  to  the  security  manager 
with  regards  to  inventory  management  of  classified 
material  is  the  Secret  custodian.  As  the  title  implies 
the  Secret  custodian  is  responsible  for  all  Secret  and 
Confidential  materials  held  onboard  ship.  The  Secret 
custodian  is  normally  a  junior  officer  with  little  or 
no  experience  in  the  management  of  classified  material. 

There  are  three  distinct  groups  of  publications: 
"Naval  Warface  and  Allied  Tactical",  "Intelligence", 
and  "Secret"  which  contains  all  Secret  materials  not 
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relating  to  the  first  or  second  group.  To  properly 
manage  these  inventories,  the  secret  custodian  is 
assisted  by  three  enlisted  personnel  as  sub-custodians. 
The  task  of  the  sub-custodians  is  to  help  the  secret 
custodian  maintain  an  accurate  inventory  of  the 
publications  and  make  required  updates  whenever 
necessary.  The  sub-custodians  are  assigned  lockers 
(safes),  for  which  he  or  she  is  responsible.  Each 
locker  (safe)  contains  Secret  and  Confidential 
materials,  mostly  in  binded  publications  and  micro¬ 
fiche.  Files  of  Secret  messages  and  notes  that  belong 
to  the  commanding  officer  and  other  officers  from  the 
unit  are  also  kept  in  the  locker.  The  Navy  has  not 
adopted  a  standard  format  for  inventorying  these 
classified  materials  at  this  time,  which  leads  to 
d i sorgan izat 1 jn  and  resultant  difficulties  in 
determining  current  inventory  in  a  timely  manner  . 

Although  the  task  of  the  secret  custodian  is 
conside’ ed  very  important  and  of  high  military 
intere  ,t,  it  is  but  a  collateral  duty  which  usually 
take'  second  place  to  primary  duties.  Publication 
updates  and  deletions  are  typically  put  off  until  there 
is  a  slowdown  in  the  operations  tempo.  This  is 
ajceptable  for  the  most  part;  however,  this  potential 
lack  of  immediate  attention  could  cause  a  loss  or 
misplacement  of  classified  material  and  result  in 
damage  to  the  Navy’s  mission  and  at  least  a  loss  of 
face  to  the  men  Involved. 

The  problem  is  critical  both  in  large  and  small 
ships.  In  the  first  case,  there  are  a  large  number  of 
publications  based  on  ship  type.  For  example,  a  carrier 
will  have  an  enormous  amount  of  classified  publications 
to  account  for  and  may  have  numerous  sub - cus tod i ans .  In 
the  second  case,  the  limited  number  of  people  that 
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serve  on  the  ship  makes  the  assignment  of  additional 
duties  much  more  difficult. 

B.  GENERAL  OVERVIEW  OF  A  DATABASE  SYSTEM 

1 .  Introduction 

It  was  not  until  the  late  1950s  that  computers 
were  successfully  used  for  data  management.  These 
computers  were  able  to  process  data  quickly  and  in 
great  quantities;  however,  these  computers  wei e  still 
unsophisticated  (limited  storage,  manipulation,  and 
retrieval  capabilities).  In  the  middle  1960s,  computer 
architecture  was  radically  changed.  A  large  increase  in 
the  size  of  computer  memory  and  the  introduction  of 
operating  systems  made  mul t i -programmi ng  possible, 
which  means  two  or  more  jobs  can  be  done  concurrently. 

Along  with  mul t i -programming  came  the  capacity 
to  do  on-line  or  single  transaction  processing.  Rather 
than  process  large  volumes  of  data  sequentially,  it  has 
become  economically  feasible  to  access  specific 
information  from  the  computer.  By  the  late  1960s,  more 
sophisticated  methods  of  storing  and  retrieving  data 
were  incorporated  into  computer  software  that  gave 
birth  to  database  management  as  we  know  it  today. 

2 .  Architecture  of  a  Relational  Database 

Relational  database  software  organizes  data 

into  simple  tables  called  relations.  Such  software 
allows  users  to  create  reports  by  drawing  data  from 
multiple  tables.  This  provides  a  simplicity  and 
flexibility  of  use  not  easily  obtained  in  non¬ 
relational  database  systems. 

The  concept  of  relational  database  was  first 
publicly  proposed  by  Dr.  E.  F.  Codd  in  a  paper  entitled 
"  A  Relational  Model  of  Data  for  Large  Shared  Data 
Banks"  [Ref.  1].  Codd  suggested  a  theoretical  method 
for  representing  data  based  concepts  developed  in  the 
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field  of  relational  mathematics.  Until  the  early  1980s 
the  ideas  were  only  of  theoretical  Interest.  Now  there 
are  several  database  management  systems  available  for 
microcomputers  based  on  these  relational  concepts.  Some 
of  these  include  dBASE  III,  dBASE  III  PLUS,  R:Base, 
Knowledge  Man,  Ingres,  and  ORACLE. 

Relational  database  principles  are  based  on 
relational  theory  in  mathematics.  Many  of  the  terms 
used  in  relational  database  management  software  are 
used  in  relational  mathematics.  For  example,  a  two- 
dimensional  table  is  called  a  relation,  where  one 
dimension  is  called  a  row  and  the  other  a  column. 

In  a  relational  database,  each  row  is  called  a 
tuple.  A  tuple  contains  data  items  or  entitles.  The 
more  familiar  term  for  a  tuple  in  data  processing  is  a 
record.  In  a  relational  database,  a  collection  of 
related  .uples  or  records  is  called  a  file.  Figure  2.1 
illustrates  a  portion  of  a  relation  called  SAILOR  that 
might  be  found  in  the  database  of  a  Naval  Facility. 

Columns  in  a  relation  are  called  attributes 
which  contain  data  describing  the  relations.  In  Figure 
2.1  the  attributes  are  NAME,  SSN ,  DEPT,  AGE,  and  PRD 
(rotation  date).  Because  there  are  five  attributes  in 
each  tuple,  they  are  called  five-tuples.  A  relation 
that  contains  five  attributes  is  called  a  relation  of 
degree  five.  A  relation  that  has  six  columns,  or  six 
attributes,  is  said  to  be  of  degree  six,  one  with  seven 
attributes,  degree  seven,  and  so  on. 

The  relation  in  Figure  2.1  is  also  referred  to 
as  a  flat  file.  A  flat  file  is  called  flat  because  it 
has  only  two  dimensions  (rows  and  columns).  Also,  a 
flat  file  has  no  repeating  groups  or  fields.  Each 
record  within  a  flat  file  has  the  same  number  of 
fields,  even  if  some  of  them  are  blank. 


All  flies  within  a  relational  database  must  be 
flat  files.  In  data  processing  terminology,  this  means 
that  all  records  within  one  file  must  have  the  same 
number  of  fields,  even  though  some  of  the  fields  may  be 
blank  for  some  records.  It  also  means  that  any  file 
within  a  relational  database  can  be  visualized  as  a 
table  with  a  fixed  number  of  columns.  Each  column  is  a 


NAME  SSN  DEPT  AGE  PRD 


Adams 

111-11-2111 

04 

22 

8/86 

Brown 

987-65-4321 

05 

30 

9/87 

Carson 

222-11-7687 

05 

32 

6/86 

Carson 

128-55-8765 

05 

30 

9/87 

Davis 

229-77-0090 

03 

19 

10/87 

Forbes 

556-33-7654 

04 

21 

9/86 

Kelley 

112-87-1765 

06 

20 

8/86 

Lee 

565-08-761 1 

06 

25 

9/87 

Pinoy 

573-12-1187 

04 

27 

11/87 

Roberts 

126-28-7653 

06 

18 

12/87 

Figure  2.1  A  Sailor  Relation. 

fixed  number  of  columns.  Each  column  is  a  field 
containing  data  that  either  uniquely  identifies  the 
record  or  describes  the  record.  If  the  data  uniquely 
Identify  the  record,  then  that  attribute  is  the  key. 
For  example,  in  Figure  2.1,  SSN  is  the  key  and  NAME, 
DEPT,  AGE,  and  PRD  are  all  attributes  that  describe  a 
particular  sailor. 
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In  relational  database  design  a  major 
distinction  is  made  between  the  logical  model  and 
physical  model.  A  logical  model  is  an  abstract 
representation  of  the  entities  in  the  database  and  the 
relationships  between  those  entities.  Figure  2.2 
illustrates  a  logical  model  of  sailors  assigned  in 
divisions  of  departments.  The  entities  are  shown  as 
boxes  and  the  relationships  as  a  diamond.  The  entities 
are  called  SAILOR  and  DIVISION  and  stand  for  sailors 
and  divisions  of  the  departments.  Records  would  be  kept 
regarding  each  sailor  and  each  division  of  a 
department.  SAILOR/DIVISION  represents  the  relation  we 
would  describe  as:  A  sailor  is  assigned  to  a  division 
within  a  department.  Records  will  be  kept  regarding  the 
sailors  assigned  to  a  division. 


Figure  2.2  Logical  Model. 

The  next  stage  of  the  database  design  is 
the  construction  of  the  physical  model.  A  physical 
model  is  the  description  of  the  database  in  terms  of  a 
specific  database.  Figure  2.3  is  a  physical  model  of 
the  logical  model  in  Figure  2.2. 

A  logical  model  is  made  without  concern  for 
the  particular  structure  or  restriction  of  the  database 
management  software  or  computer  hardware  that  will 
process  the  database.  A  physical  model  must  be  designed 
to  work  within  the  constraints  of  the  particular 
hardware  and  software  used,  such  as  amount  of  storage 


naming  conventions,  and 


III.  SYSTEM  ANALYSIS 


A.  INTRODUCTION 

System  analysis  is  the  process  of  gathering, 
interpreting,  and  using  facts  to  improve  an  existing 
system  through  better  procedures  and  techniques.  In 
other  words,  analysis  specifies  what  the  system  must  do 
and  should  do. 

The  first  step  of  the  analysis  phase  is  a  system 
study  which  includes  the  accumulation  of  information 
relating  to  the  existing  system’s  capabilities  and 
deficiencies.  This  information  may  lead  to  a  need  for 
new  system  development  or  a  major  improvement  to  an 
existing  system. 

According  to  J.  A.  Senn  [Ref.  3]  the  reasons  for  a 
project  initiation  are: 

a.  Greater  processing  speed 

b.  Better  accuracy  and  Improved  consistency 

c.  Faster  information  retrieval 

d.  Reduced  cost 

e.  Better  security 

In  general,  all  of  the  above  reasons  should  be 
satisfied  by  the  new  system;  however,  it  is  for  the 
organization  to  decide  if  the  new  system  start  is 
necessary  or  required. 

B.  DESCRIPTION  OF  THE  CURRENT  SYSTEM 

The  present  system  on  most  ships  is  graphically 
described  in  Figure  3.1  using  a  Yourdon’s  data  flow 
diagram.  The  circle  in  the  diagram  represents  the 
process  being  done  at  the  time.  An  arrow  represents  the 
flow  of  the  data,  information,  or  materials.  The  two 
parallel  lines  represent  a  data  bank  or  database. 
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The  mail  which  contains  classified  material  is 
delivered  to  the  ship  by  registered  mail.  The  ship’s 
yeoman  receives,  signs,  and  distribute  the  mail  to  the 
appropriate  personnel.  In  the  case  of  Secret  and 
Confidential  materials,  the  secret  custodian  will 
receive  and  sign  for  custody.  The  secret  custodian  then 
sorts  and  forwards  the  publications  (registered  mail) 
to  the  proper  sub-custodians.  The  sub-custodians  check 
the  publications  for  accuracy,  completeness,  and 
include  changes  whenever  necessary.  Each  publication 
will  be  logged  and  included  in  the  inventory  of  the 
sub-custodian’s  safe.  Publications  are  kept  and 
organized  by  document  type.  Updates  and  deletions  are 
not  reflected  until  update  listings  are  available.  The 
publication  listings  are  manually  typed  and  reports  are 
not  often  available  when  required. 

The  sub-custodians  are  responsible  for  the  physical 
safety  of  the  publications  that  are  under  their 
controls.  Updates  and  deletions  are  manually  made  and 
indicated  on  the  publications.  Publications  earmarked 
for  destruction  are  normally  grouped  with  the  rest  of 
the  expired  publications  for  future  shredding  and 
incineration . 

Each  sub-custodian  is  required  to  have  a  current 
listing  of  his  safe’s  inventory.  An  accurate  inventory 
listing  is  normally  required  semi-annually  by  the 
security  manager  for  the  purpose  of  reporting  status  to 
the  executive  officer  and  commanding  officer.  Inventory 
listings  are  also  required  during  security  inspections, 
training  inspections,  and  normal  operational 
deployments . 

C.  PROPOSED  IMPROVEMENT  OVER  THE  CURRENT  SYSTEM 

The  proposed  system  is  graphically  described  in 
Figure  3.2.  The  yeoman’s  Job  in  process  1  will  still  be 
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the  same;  however,  the  secret  custodian  will  have  only 
one  sub-custodian  for  all  the  lockers  (safes).  Each 
piece  of  classified  material  will  be  assigned  a  control 
number  by  the  secret  custodian.  Control  numbers  will  be 
used  to  uniquely  identify  each  publication  or 
classified  materials  belonging  to  the  secret  custodian. 
The  sub-custodian  will  do  the  data  entry  and  all  the 
previously  described  tasks  currently  performed 
manual ly . 
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Figure  3.2  Proposed  System 


D.  JUSTIFICATION  OF  A  COMPUTERIZED  SOLUTION 


The  following  improvements  can  be  achieved  by 
computerized  solution  or  automation: 

a.  The  processing  speed  will  be  much  faster  and 
eventually  simpler.  One  person  should  be  able  to 
perform  the  whole  task  effectively. 

b.  Improved  accuracy  in  data  retrieval  can  be  achieved 
by  eliminating  the  possibility  of  information  or 
data  omission. 

c.  The  retrieval  and  listing  of  inventory  information 
will  be  much  faster,  easier,  and  real  time. 

d.  In  a  military  environment,  the  cost  of  the  manually 
provided  functions  are  not  easily  estimated. 
Therefore,  cost  reduction  as  a  requirement  cannot 
be  considered  an  Improvement  to  the  existing 
system,  except  in  terms  of  man-hours  and  the  number 
of  personnel  required  to  do  the  job.  On  the  other 
hand,  the  monetary  cost  of  installing  a  micro¬ 
computer  system  is  considered  insignificant  since 
the  proposed  system  will  be  designed  to  be 
supported  by  a  stand  alone  micro-computer. 

e.  The  level  of  security  will  be  limited  to  a  few 
system  traps  and  program  passwords.  However,  the 
physical  security  applied  to  publications  will  be 
extended  to  the  program  software. 

The  previously  mentioned  improvements  lead  to  the 
decision  that  this  project  is  a  good  candidate  for  a 
new  system  development.  It  satisfies  the  requirements 
for  project  initiation  as  stated  in  the  beginning  of 
this  chapter. 


E.  SYSTEM  REQUIREMENTS 

System  requirements  were  determined  through  a 
series  of  interviews  with  users  at  both  sea  and  shore 
commands.  Incorporating  users’  and  management  needs, 
the  proposed  system  must  be  able  to  satisfy  the 
following  requirements  so  that  the  previously  defined 
Improvements  can  be  achieved: 

a.  It  must  be  able  to  store  any  information  about 

classified  material  inventory  currently  held  by 
Navy  ships.  Actual  storage  may  be  different  from 
organizations  to  organizations;  however, 

modifications  in  storage  maybe  necessary  to  avoid 
data  duplication. 

b.  It  must  be  able  to  provide  any  stored  information 
or  combination  of  stored  information  upon  request. 
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It  must  be  easy  to  use.  Personnel  with  very  little 
knowledge  about  computers  should  be  able  to  operate 
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computer.  Security  of  data  __  will  be  managed 


following  four 


supportable  on  a 
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effectively  with  a  stand  alone  micro-computer 
system. 

1 .  Classes  of  System  Operations 
The  system  will  provide  the 
classes  of  operations: 

a.  Modification  of  the  Existing  Data 
The  user  of  the 

insert  a  new  record,  to  delete 
modify  any  record  in  the  suppe 

b.  Locker  Allocation 
The  system  should  be 

different  types  of  publ; 
certain  types  of  publication  will 
locker(s)  and  the  location  of  the  locker(s).  The 
criteria  used  for  each  type  of  publication  allocation 
will  be  described  with  the  corresponding  application 
program . 


should 

be 

able  to 

i st ing 

one 

,  and  to 

system 

file 

s  . 

able 

to 

provide 

at  ion . 

For 

example  , 

11  go 

on 

certain 

c.  Production  of  Reports 

A  number  of  application  programs  will 
support  the  function  of  retrieving  necessary 
information  about  publications  from  the  database  and 
producing  the  appropriate  lists  and  reports. 

d.  Assistance  Operations 

Although  the  above  operations  can  satisfy 
the  request  of  the  system,  an  additional  function 
related  to  the  tracking  of  modifications  that  have  been 
done  to  the  supporting  system  files  is  necessary.  This 
audit  history  will  be  contained  in  file  "TRACER"  in 
which  any  modifications  of  the  supported  files  will  be 
recorded  with  the  time,  date,  and  user  name.  For 
security  reasons,  this  file  should  not  be  accessible 
through  the  main  menu  or  any  sub-menu.  Also,  system 
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access  security  should  be  provided  at  system  start-up 
through  a  password  control  system. 

A  "USERID"  file  will  contain  users’  names 
and  corresponding  passwords.  A  second  "USERLOG"  file 
will  accumulate  the  information  of  all  transactions 
done  by  the  user  of  the  system.  Neither  file  will  be 
accessible  through  the  menu  system. 

2 .  Expected  Volume  of  Data 

The  volume  of  data  should  average  approximately 
1600  binded  publications,  1000  micro-fiche,  300  binded 
Secret  notes  and  several  item  of  other  classified 
material,  both  in  binded  publication  and  loose  messages 
received  during  operations. 

3 .  Kinds  of  Queries  to  be  Answered 

The  database  would  be  entered  through  the  main 
menu.  The  user  could  select  a  file  for  querying  or 
updating  a  specific  file.  The  queries  answered  through 
the  database  include  the  following: 

a.  Listing  of  all  publications  by  locker  numbers. 

b.  Location  of  each  or  a  certain  publication. 

c.  The  sub-custodian  of  this  publications. 

d.  The  update  of  a  certain  or  many  publications. 

e.  The  total  number  of  Secret  and  Confidential 
material . 


number  of 


f.  The  basic  allowance  list  vs  current  publication 
available  onboard. 

g.  The  total  number  of  publications  in  each  locker. 

h.  The  destruction  record  of  the  last  two  years. 

4 .  Relative  Update  and  Retrieval 

The  database  shall  be  updated  monthly  or  more 
frequently  as  the  custodian  feels  necessary.  The 
database  retrieval  activities  shall  be  performed 
periodically  as  follows: 

a.  Quarterly  for  inventory  purposes. 

b.  As  requested  or  deemed  necessary  by  the  custodian 
or  higher  authority. 
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Additionally,  ad  hoc  queries  shall  be  performed 
when  desired  by  the  security  manager  and  commanding 
officer . 

F.  INPUT  REQUIREMENT 

The  input  requirement  are  the  system  requirements 
and  project  plan.  These  requirements  were  determined 
through  publication  instructions,  and  users’  needs 
through  interviews  with  previous  secret  custodians  and 
staff  personnel  whose  job  involved  inventory  management 
of  classified  publications. 

G.  OUTPUT  REQUIREMENT 

A  similar  process  of  acquiring  information  was 
conducted  in  formulating  output  requirements.  Output 
requirements  may  be  altered  by  the  next  user  as  they 
apply  to  the  present  regulations. 


IV. 


RELATIONAL  DESIGN 


Logical  design  is  the  first  major  task  in  the 
design  of  a  database-oriented  system.  This  task  will  be 
to  define  the  database  structure,  which  is  a  two-phased 
process.  First,  the  logical  structure  of  the  database 
is  developed;  second,  the  physical  design  of  the 
database  structure  is  developed. 

A.  MODELING 

The  essence  of  database  design  is  the 
representation  of  record  relationships . The 

relationships  can  be  specified  using  a  data  structure 
diagram  (DSD),  commonly  called  a  Bachmann  diagram.  The 
relationships  are  identified  intuitively.  Design  was 
conducted  on  the  potential  relationships  among  records 
that  have  been  defined  for  the  system. 

1 .  Record  Structure 

In  order  to  satisfy  the  user’s  requirements,  a 
number  of  records  were  derived  from  a  publication 
listing  held  by  the  secret  custodian.  Because  of 
military  security,  bogus  data  and  other  information 
were  entered  to  the  record  model  instead  of  real  data. 
From  the  information  in  the  publication  record,  a 
relation  model  of  the  system  was  built.  In  this  thesis, 
the  following  records  were  generated: 
a.  PUBS  (Ctrl  No  ,  S_Title,  Locker,  Class,  Update, 
Sub_Cust ) 

Ctrl_No:  control  number 
S_Title:  short  title 
Locker:  locker  number 
Class:  classification 
Update:  last  update  done 


Sub_Cust:  sub-custodian 

b.  PUBSINFO  ( S  Title ,  L_Titie,  Allowance, 
Onboard,  Doc_Type ) 

S_Title:  short  title 
L_Title:  long  title 
Allowance:  allowance  for  ship 
Onboard:  onboard  publications 
Doc_Type :  document  type 

c.  DESTRUCT  (Ctrl  No,  S_Title,  D_Destruct  ) 
Ctrl_No:  control  number 

S_Title:  Short  title 
D_Destruct:  date  of  destruction 

d.  USERID  (Name,  Password) 

Name:  name  of  user 
Password:  password  of  user 

e.  USERLOG  ( Logdate ,  Logtime ,  Name,  Task, 
Progname ) 

Logdate:  logged  date 

Logtime:  logged  time 

Name:  name  of  user 

Task:  task  performed 

Progname:  program  names  accessed 


Underlined  field(s)  in  the  record  are  the  key. 
Precise  information  about  each  field  is  in  the  Data 
Dictionary  in  Section  B  of  this  chapter. 

2 .  Record  Relationship  Diagram 

DSD  was  used  for  the  representation  of  record 
relationships.  Each  relation  described  in  the  above 
section  and  Figure  4.1  is  in  third  normal  form  ( 3NF  )  . 
This  means  that  each  tuple  or  record  of  each  relation 
consists  of  a  primary  key  value  that  identifies  some 
entity,  together  with  a  set  of  mutually  independent 
values  that  described  the  record  in  some  way.  For 


PUBSINFO 


B.  DATA  DICTIONARY 


The  data  dictionary  is  the  collection  of  correct 
information  about  the  words  and  terms  used  by  the 
organization  in  order  to  describe  its  data.  The  term 
data  dictionary  is  used  to  Indicate  a  set  of  files  or  a 
database.  The  data  dictionary  for  this  thesis  is: 

Field  Name:  Ctrl_No 
Format:  character 
Width:  5 

Allowable  value:  less  than  50,000 
Description:  Numeric,  character  plus  numeric 

Field  Name:  S_Title 
Format:  character 
Width:  20 

Allowable  value:  short  title,  originator’s  name 
Description:  short  title  of  publications 

Field  name:  L_Title 
Format:  character 
Width :  40 

Allowable  value:  long  title,  subject  name 
Description:  long  title  of  publications 

Field  name:  Locker 
Format:  character 
Width:  1 

Allowable  value:  characters,  numbers 
Description:  locker  id  (i.e.,  locker  2) 

Field  name:  Class 
Format:  character 
Width:  9 
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Allowable  value:  SECRET,  CONF,  UNCLASS 
Description:  publication  classification 

Field  name:  Update 
Format:  date 
Width:  8 

Allowable  value:  MM/DD/YY 
Description:  date  of  last  update 

Field  name:  Sub_Cust 
Format:  character 
Width:  12 

Allowable  value:  last  name,  initials,  rank 
Description:  last  name  and  rank  of  person 

Field  name:  Allowance 
Format:  numeric 
Width:  4 

Allowable  value:  0  to  9999 

Description:  number  of  publication  required 

Field  name:  Onboard 
Format:  numeric 
Width:  4 

Allowable  value:  0  to  9999 

Description:  number  of  publication  onboard 

Field  name:  Doc_Type 
Format:  character 
Width:  7 

Allowable  value:  NTP/ATP,  SECRET,  INTEL 
Description:  publication  by  document  type 

Field  name:  D_Destruct 
Format:  date 
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Allowable  value:  MM/DD/YY 
Description:  destruction  date 

Field  name:  Name 
Format:  character 
Width:  12 

Allowable  value:  last  name  and  rank 
Description:  sub -custodi an  * s  name  and  rank 

Field  name:  Password 
Fromat:  character 
Width:  8 

Allowable  value:  numeric,  alpha-numeric,  characters 
Description:  user’s  access  code 

Field  name:  Task 
Format:  character 
Width:  10 

Allowable  value:  INSERTION,  LIST,  and  other  tasks 
Description:  program  task  performed  by  each  user 

Field  name:  Progname 
Format:  character 
Width:  10 

Allowable  value:  ADD_PUBS ,  and  other  program  names 
Description:  program  names  in  this  thesis 

Field  name:  Logdate 
Format:  date 
Width:  8 

Allowable  value:  MM/DD/YY 

Description:  date  when  the  task  was  performed 


Field  name:  Logtime 


Format:  Character 
Width:  5 

Allowable  value:  HR:MN 

Description:  time  when  the  task  was  performed 
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A.  INTRODUCTION 

The  introduction  of  a  database  as  the  central 
reservoir  of  data  changes  the  organization’s  attitude 
with  regard  to  data  requirements  and  its  management. 
This  creates  new  skills  to  be  learned  and  a  need  for  a 
good  implementation  scheme.  In  this  chapter,  the  issues 
of  shipboard  implementation  and  database  administration 
are  discuss. 


B.  SHIPBOARD  IMPLEMENTATION 

The  implementation  of  a  new  system  or  a  change  in 
the  old  ways  of  doing  things  in  an  organization  usually 
receives  resistance  and  skepticism  from  the  personnel 
involved;  however,  the  security  manager  onboard  a  ship 
can  easily  overcome  these  problems  due  to  the 
relatively  small  size  of  his  department.  The  security 
manager  and  secret  custodian  must  be  aware  of  these 
implementation  problems  in  order  to  correct  problems  as 
they  arise. 

Security  consideration  with  regard  to  the  TEMPEST 
requirements  must  be  checked  periodically.  Although 
TEMPEST  requirements  do  not  apply  to  the  application 
program  in  its  present  form,  the  security  manager  must 
keep  abreast  with  any  change  in  requirements.  Quarterly 
training  must  be  conducted  in  house  for  all  users.  A 
duplicate  copy  of  database  files  (such  as  PUBS. DBF, 
PUBSINFO . DBF ,  and  DESTRUCT . DBF )  must  be  retrieved 
weekly  for  data  accuracy  and  auditing.  Program  and 
backup  disks  must  be  stored  in  the  safe  for  better 
security. 
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Finally,  shipboard  implemtation  must  be  planned  and 
monitored  in  order  to  make  immediate  changes  when 
necessary.  The  users  ( sub-custodians )  must  be  capable 
of  learning  the  basic  knowledge  on  how  to  use  the 
proposed  software  program  and  the  application  program 
in  this  thesis. 

1 .  Software  Requirement  for  System  Implementation 
The  dBASE  III  PLUS,  which  will  be  used  for  the 

implementation  of  the  publication  inventory  system 
under  discussion,  is  a  relational  DBMS  for  micro¬ 
computers.  It  contains  its  own  extremely  powerful 
programming  language  which  permits  the  user  to  easily 
create  his  own  application  programs  regardless  of 
complexity . 

2 .  Hardware  Requirement  for  System  Implementation 
The  system  can  operate  on  a  16-bit 

microcomputer  that  uses  MS  DOS,  PC  DOS  version  2.0,  or 
a  newer  version.  For  example,  it  could  be  an  IBM  PC,  or 
an  IBM  PC/XT/AT  or  any  other  16-bit  microcomputer  fully 
compatible  with  one  of  the  above  mentioned  micro¬ 
computers  . 

256K  of  random  access  memory  (RAM)  is  the 
minimum  requirement  of  the  supporting  database  package. 
The  best  configuration  is  one  disk  drive  and  one  hard 
drive  disk.  A  10M  (megabytes)  hard  disk  is  recommended 
because  it  is  the  most  common,  inexpensive,  and 
reasonable  configuration  of  a  microcomputer.  Although  a 
hard  disk  is  not  required  (because  all  files  and 
application  programs  can  be  stored  on  a  floppy  disk 
based  system),  a  hard  disk  will  greatly  improve  the 
execution  time  of  the  programs  used  In  this 


application.  Any  80  column  printer  able  to  interface 
with  the  above  mentioned  microcomputers  can  be  used. 


C.  DATABASE  ADMINISTRATION 

To  facilitate  effective  use  of  the  database,  most 
organizations  have  staffed  a  position  (and  office)  of 
database  administration  (DBA).  This  person  is 
responsible  for  protecting  the  database  while  at  the 
same  time  maximizing  benefits  to  users  [Ref.  4], 

The  secret  custodian  should  be  assigned  as  DBA.  The 
DBA  will  be  responsible  for  the  accuracy,  consistency, 
and  timeliness  of  the  data  file.  This  function  will 
require  the  secret  custodian  to  provide  database 
standards  and  enforce  data  activity  policy.  Therefore, 
the  secret  custodian  must  educate  himself  in  order  to 
effectively  manage  the  database  resources. 


VI.  SAMPLE  PROGRAM  PROCESSING 


The  proposed  inventory  management  system  Is  a  menu 
driven  program  organized  along  functional  lines.  Each 
major  function  in  the  system  corresponds  to  a  section 
of  this  chapter  and  selection  from  the  main  menu.  This 
chapter  will  incorporate  the  instruction  on  how  to  run 
the  system;  thus,  it  will  serve  as  a  substitute  for  the 
user  ’  s  manual . 

There  is  also  a  section  in  this  chapter  that 
discusses  MAINPROG  (or  main  program  menu).  It  is 
important  to  read  this  section  before  starting  to  use 
the  inventory  management  system  since  it  describes  in 
detail  how  to  include  the  user’s  name  in  the  access 
list  of  the  program. 

This  manual  is  tailored  to  users  with  some 
knowledge  in  microcomputers.  The  steps  to  start  the 
system  are  as  follows: 

a.  Copy  the  two  dBASE  III  PLUS  diskettes  the  hard  disk 
and  insert  the  original  third  disk  in  the  "A" 
drive. 

b.  At  "C>"  type  "bdase"  (no  quotes  needed)  and  then 

strike  the  return  key.  Once  the  system  is  loaded 
strike  the  return  key  once  more.  This  will  take  you 
to  the  "assist"  mode.  You  must  get  out  of  the 
assist  mode  by  pressing  the  "esc"  key.  The  (dot 

?rompt)  will  appear  on  the  screen.  Type  "  set  defa 
o  a*'  (no  quotes  needed)  and  then  hit  the  return 
key.  Now  you  are  ready  to  use  the  system. 

c.  At  this  point,  type  "do  mainprog"  followed  by 
carriage  return.  A  U.S.  flag  will  appear 
momentarily  then  a  brief  greeting  by  the  system. 
The  system  will  prompt  you  for  your  own  user’s 
identification  (to  access  the  system  see  section 
MAINPROG  of  this  chapter). 

d.  Follow  the  command  messages  which  appear  on  the 
screen.  The  various  options  of  the  main  function  of 
the  system  are  listed  in  the  main  menu.  Select  the 
number  and  follow  the  command  message  on  the 
screen. 
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A.  MAINPROG 

The  MAINPROG  program  has  two  functions:  first,  it 
will  ask  the  user  for  his  own  access  code  or  password. 
Once  the  user  has  succesfully  logged  into  the  system,  a 
history  of  the  user’s  session  will  be  kept  in  the 
"USERLOG"  file.  To  enter  an  authorized  user: 

a.  T^rge  "assist"  at  the  "."(dot  prompt)  of  bBASE  III 

b.  Select  the  "Set  Database  file" 

c.  Select  "a"  drive,  then  select  USERID. DBF 

d.  Select  "Update",  then  select  append 

e.  Enter  the  username  and  password 

f.  Save  the  new  information  (Ctrl-End) 

g.  Do  step  1  to  3  and  USERLOG. DBF 

h)  Do  step  4.  Enter  username  and  save 

Second,  the  main  program  will  prompt  the  user  with 
a  straightforward  menu  driven  selection  process.  The 
selection  process  does  not  require  further  information 
from  the  user. 

The  MAINPROG  program  presents  the  main  menu  on  the 
sc reen ( Figure  6.1).  There  are  a  total  of  six  options. 
The  user  must  refer  to  the  respective  section  of  this 
chapter  for  further  information  about  the  option  in  the 
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:  MAIN  MENU  : 

wwwwwwwwvwwwwvwwwwwwwvwwvvwwwwwwwwwvwwwwwwwww 

:  1 .  HELP  : 

:  2.  UPDATE  DATABASE  : 

:  3.  REPORT  GENERATOR  : 

:  4.  ADHOC  REQUEST  : 

:  5.  END  OF  DATABASE  : 

:  6.  EXIT  TO  DOS  : 


ENTER  CHOICE  (  1-6  )  -> : 


WWWWWWWWWWTVTtTWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 


Figure  6.1  Main  Menu. 
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B .  HELP 


The  help  function  allows  the  user  to  have  on-line 
assitance  while  running  the  program.  This  help  menu 
(Figure  6.2)  will  only  be  accessible  from  the  main 
menu . 


wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

:  HELP  MENU  : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

:  1 .  UPDATE  DATABASE  : 

:  2.  REPORT  GENERATOR  : 

:  3.  ADHOC  REQUEST  : 

:  4.  EXIT  TO  MAIN  MENU  : 

:  ENTER  CHOICE  =>:  : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 


Figure  6.2  Help  Menu. 


C .  UPDATE  DATABASE 

The  update  database  function  allows  the  user  to 
add,  edit,  and  delete  any  files  in  the  menu  provided  in 
Figure  6.3.  It  is  very  important  for  the  user  to  be 
exact  with  the  information  entered  in  the  database 
because  a  mistake  could  have  far-reaching  implications 
to  the  validity  of  the  data  in  the  database. 


wwwwwwwwwwwwwwwwwwwwwwvwwwwwwwwwwwwwwwwwwwwww 
•  • 

:  UPDATE  DATABASE  MENU  : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

:  1.  INSERT  RECORDS  INTO  PUBS  FILE  : 

:  2.  INSERT  RECORDS  INTO  PUBSINFO  FILE  : 

:  3.  INSERT  RECORDS  INTO  DESTRUCT  FILE 

:  4.  MODIFY  RECORD  FROM  PUBS  FILE  : 

:  5.  MODIFY  RECORD  FROM  PUBSINFO  FILE  : 

:  6.  DELETE  RECORDS  PUBS  &  PUBSINFO  FILES  : 

:  7.  EXIT  TO  MAIN  MENU  : 

:  ENTER  CHOICE  ->:  : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 


Figure  6.3  Update  Database  Menu 


! 


1.  Select  Option  "1"  to  Insert  Pubs  Record 


This  allows 


to  Insert  a  new 


publication  in  the  PUBS. DBF  file.  The  user  must  be  \<  rv 
careful  when  inserting  the  Information  into  database.  A 
control  number  must  be  provided  by  the  user.  The  sy.-’em 
will  search  for  any  duplication  of  <•>!.’  r ■>  ;  r.umtn  r  : 
the  database  and  will  not  allow  the  user  •  •  d  ip  i  ;  .  ,» *  * 
this  number  .  F  igure  6.4  shows  the  '.  n  :  •  :  a  .  reer.  *  n.t  * 
will  appear  after  the  option  1  was  .  e.  •  .  . :  . 


tvVWVWVVWVWVVVVVVWVVVVVVWVWVVVV  W  W  W  W  V  W  W  W  W  W  V  V  w  w  w 

:  ADD  NEW  RECORD  TO  PUBS  FI  IT 

:  WWWWWWWWWWWWWWWWWWWVWWWWWWWW V W  W  W  W  W  W  W  W  V  V  W  V  V  : 


:  ENTER  CONTROL  NUMBER  ->  bbbbb  : 

WWWVWWVW¥WVWVWWWVWVVWV  ww  w  w  w  w  wvww  w  w  w  w  w  w  w  w  w  w  w 


Figure  6.4  Query  to  Insert  Pubs  Record 


D.  REPORT  GENERATOR 

The  report  function  allows  the  user  to  obtain 
detail  information  about  the  inventory  level  of  the  all 
the  publications.  The  user  can  access  this  section 
through  the  main  menu.  Figure  6.5  shows  the  "Database 
Report  Generator  Menu". 


wwvrwwvwwwwwwwwwwvwwwwwwwwwwww'wwwwww'wwwwwwwwwww 

:  DATABASE  REPORT  GENERATOR  MENU  : 

wvwwvwvwwwwvwvvwvvoowwwvvwvvvvwwwwwwwwwvw 

:  1.  ALLOWANCE  LISTING  OF  PUBLICATION  : 

:  2.  ALPHABETICAL  LISTING  OF  PUBLICATION  : 

:  3.  LIST  OF  PUBLICATIONS  BY  LOCATION  : 

4.  LIST  OF  PUBLICATIONS  BY  CLASSIFICATION: 

:  5.  LIST  OF  DESTRUCTION  RECORDS  : 

:  6.  EXIT  TO  MAIN  MAIN  MENU  : 

:  ENTER  CHOICE  =>:  : 

wwwwwwwwvwwwwwwwwwwwwvwwwwwvwwwvwwwvw 


Figure  6.5  Database  Report  Generator  Menu 


•  -  A  •  _  V.  A  A  <.  A  ».  AA  ■«  A  -A  /.  *_  A»  .  /  ... 


1 •  Select  Option  1  to  Get  Allowance  Listing 

This  section  provides  a  list  of  publications 
sorted  by  document  type  with  the  corresponding 
allowance  versus  onboard  listing.  The  output  is  shown 
below  (Figure  6 . b  )  . 

Page  ho.  1 
09/24/87 

USS  BATTLESHIP  REPORT 
SORTED  BY  DOCUMENT  TYPE 


SHORT  TITLE 


ALLOWANCE  ONBOARD 


OPNAVINST  1120.1G  1  , 

SURFACINST  2210  2  2 

***  Total  **• 

3  3 


Figure  b.6  List  of  Publication  Sorted  by  Document  Type. 


E.  ADHOC  REQUEST 

The  adhoc  function  allows  the  users  to  do  special 
query  on  a  specific  publication.  Although  not  all  of 
the  possible  queries  were  provided,  the  user  will  be 
able  to  do  basic  inquiries  from  this  menu.  Figure  6.7 
shows  the  available  selection  from  the  "Database  Adhoc 
Menu " . 


wwwwwwwwwwwwwwwwwvwwwwwwwwwwwvwwwwwwwwwwwwwwww 

:  DATABASE  ADHOC  MENU  : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

:  1.  LOCATION  OF  SPECIFIC  PUBLICATION  : 

:  2.  SUB-CUSTODIAN  OF  A  PUBLICATION  : 

:  3.  ALLOWANCE  OF  SPECIFIC  PUBLICATION  : 

:  4.  CLASSIFICATION  OF  SPECIFIC  PUBLICATION  : 

:  5.  LAST  UPDATE  OF  CERTAIN  PUBLICATION 

:  ENTER  CHOICE  ->:  ! 

wwwwwwwwwwwwwww vwwwwwwwwwvwwvwwwwwwwwwwwwwwwww 


Figure  6.7  Database  Adhoc  Menu. 


VII  .  CONCLUSION 

The  purpose  of  this  study  was  to  develop  a  database 
system  model  suitable  for  implementation  onboard  Naval 
ships,  and  to  aid  in  the  inventory  management  of 
classified  material  in  this  environment. 

The  developed  system  must  be  considered  a  prototype 
model  which  may  need  further  modification  and  extension 
in  order  to  fit  a  specific  user’s  need.  Although  the 
system  must  be  considered  a  prototype  in  its  present 
form,  the  application  program  will  perform  all  the 
basic  jobs  of  the  sub-custodian  with  regard  to 
inventory  management. 

Since  dBASE  III  PLUS  was  used  in  the  application 
program  of  this  thesis,  a  relational  database  must  be 
used.  A  brief  discussion  of  relational  database  model 
was  reviewed  in  Chapter  II,  in  order  to  give  the  user 
basic  knowledge  of  the  model. 

The  system  is  menu  driven.  Therefore,  it  is  not 
only  easy  to  use  but  also  easy  to  modify,  since  both 
the  user  and  programmer  are  directed  to  the  desired 
point  through  the  sequence  of  menus  and  sub-menus. 

Finally,  it  is  up  to  the  security  manager  and 
secret  custodian  to  monitor  the  effectiveness  of  this 
application  program  during  the  initial  implementation 
stage  and  throughout  its  life  cycle. 


APPENDIX  A 

PROGRAM  STRUCTURE  CHART 
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APPENDIX  B 


PROGRAM 


A.  MAIN  PROGRAM 


H***HH*H**»»*»*»HHH«H  PROGRAM  MAINPROG  H*K*HH**H*H»H*HH 

*  This  is  the  main  program,  which  controls  the  operation  of 

*  the  entire  database  system. 

CLEAR 

*  Initialization  of  the  basic  dBASE  III  functions 

SET  TALK  OFF 
SET  BELL  OFF 
SET  DELIMITER  OFF 
SET  HEADING  OFF 
SET  EXACT  ON 

M  declare  global  variables 


PUBLIC  psw 
STORE  ’ 

0  5,18  SAY 
@  6,18  SAY 
0  7,18  SAY 
0  8,18  SAY 
0  9,18  SAY 
0  10,18  SAY 
0  11,18  SAY 
0  12,18  SAY 
0  13,18  SAY 


’  TO  psw 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 
:  Security  Manager  dBASE  Program  : 
mmmmmmmmmmmmmmmmmmmmmmmrmmmmmmmmmm 


:  Please  enter  your  : 

•  ^  m  ^  ^  ^  ^  ^  ^  . 

•  V^)  ^  Ip  ip  >P  9 

wwwvwwwwwwwwwwwvwvwwwwwwwwwwwwww 


*  Check  user  s  authorization 

0  12,28  SAY  ’PASSWORD  ->’ 

SET  CONSOLE  OFF 
ACCEPT  TO  psw 
SET  CONSOLE  ON 
USE  userid 

LOCATE  FOR  password  =  UPPER  (psw) 

H  Unauthorized  user.  Exit  to  dBASE  operating  system. 


■«  *>  -J,  •  *  v.%.  *  .  *  ‘  V* 


41 


UNAUTHORIZED  USER  * 


IF  EOF  (  ) 

SET  COLOR  TO  W* 

@  12,28  SAY  ’ 

DO  delay 
SET  COLOR  TO  W 
QUIT 
END  IF 

H  Authorized  user 

STORE  ’Y’  TO  main 
DO  flag 
DO  delay 
DO  headings 

DO  WHILE  UPPER  (main)  =  *Y* 

DO  mmenu 

**  Perform  appropriate  function  depending  on  user’s  choice 
DO  CASE 

CASE  selection  -  1 
DO  dbhelp 

CASE  selection  =  2 
DO  update 

CASE  selection  =  3 
DO  report 

CASE  selection  -  4 
DO  adhoc 

CASE  selection  «  5 

STORE  ’N’  TO  main 
CASE  selection  -  6 
CLEAR 
QUIT 

ENDCASE 

ENDDO 

SET  TALK  ON 
SET  DELIMITER  ON 
SET  EXACT  OFF 
SET  HEADING  ON 
SET  BELL  ON 
CLEAR  ALL 
RETURN 

*  eof  mainprog.prg 


•r.  .VvVV  V 


1.  Main  Menu 


***KH******H*HHHHHH  PROGRAM  MMENUM  *HH**HK»H*KH**H*H*M» 

*  This  program  displays  the  system  Main-Menu  on  the  screen 
CLEAR 

SET  TALK  OFF 
PUBLIC  selection 
STORE  0  TO  selection 


@  4,22  SAY  ’ 


0 

5,22 

SAY 

’  mm 

mm  ’ 

@ 

6,22 

SAY 

*  WVVVVVVWVWWWWWl^WVWVWVW  9 

SET 

COLOR 

TO 

w* 

@ 

5 ,30 

SAY 

’MAIN 

MENU’ 

SET 

COLOR 

TO 

w 

0 

7 , 18 

SAY 

’  ^rw\rw\rww\rw^^\rw^rwww\rw\rw^w\rw\rwvvw\rwv'vww  ’ 

@ 

8,18 

SAY 

9  , 

9 

0 

9 , 18 

SAY 

f  s 

1  . 

HELP / DOCUMENTAT I ON 

9 

0 

10 , 18 

SAY 

t  . 

2  . 

UPDATE  DATABASE 

9 

0 

11  ,  18 

SAY 

f  , 

3. 

REPORT  GENERATOR 

9 

@ 

12 , 18 

SAY 

9  , 

4  . 

ADHOC  REQUESTS 

9 

0 

13,18 

SAY 

f  . 

5. 

END  OF  DATABASE 

9 

@ 

14 , 18 

SAY 

»  . 

6  . 

EXIT  TO  DOS 

9 

0 

15,18 

SAY 

»  , 

9 

@ 

16 , 18 

SAY 

9  . 

9 

@ 

17 , 18 

SAY 

9  , 

9 

0 

18,18 

SAY 

’  W¥WWWWWWWWWV¥VWVWWVWWW¥WWW¥W¥  ’ 

SET 

COLOR 

TO 

W+ 

@  17,20  SAY  ’ENTER  CHOICE  (1-6)  ->:  ’GET  selection; 

PICT  ’9’  RANGE  1,6 

READ 

SET  COLOR  TO  ¥ 

SET  TALK  OFF 

CLEAR 

RETURN 

*eof  mmenu.prg 


43 


a.  Update  Sub-Menu 


*m************h****  PROGRAM  UPDTMENU  **h*h*h***hh*hmk****»m 
H  This  program  display  on  the  screen  the  update  sub-menu 


CLEAR 

PUBLIC  upcode 
STORE  0  TO  upcode 

@  4,18  SAY  '  wvwwwwwvwwwwwwwwwwwv^v^^^^^w^^^^^^wvwwwwv^wwwwwwwwwwwwwww  ’ 

0  5,18  SAY  ’  :  :  ’ 

@  6,18  SAY  ’  wwv\rww\rwwwvw\rw\rw\rwv\rw\rwwwrw\rwvwrww\rw^^ 

SET  COLOR  TO  W* 

@  5,30  SAY  ’  DATABASE  UPDATE  MENU’ 

SET  COLOR  TO  W 

@  7,18  SAY  ’  wwwwwvwvwT*rwvwwvvvvwT*rwvw\<rv<rwvwwvwwvww^ 

0  8,18  SAY  ’ :  : 

@  9,18  SAY  ’ : 1 .  INSERT  RECORDS  INTO  PUBS  FILE  : 

@  10,18  SAY  ’  :  2  .  INSERT  RECORDS  INTO  PUBSINFO  FILE  : 

@  11,18  SAY  ’  :  3  .  INSERT  RECORDS  INTO  DESTRUCT  FILE  : 

@  12,18  SAY  ’  :  4  .  MODIFY  RECORDS  FROM  PUBS  FILE  : 

0  13,18  SAY  ’ : 5 .  MODIFY  RECORDS  FROM  PUBSINFO  FILE  : 

0  14,18  SAY  ’ : 6 .  DELETE  RECORDS  FROM  PUBS  AND  PUBSINFO  FILES: 

0  15,18  SAY  ’ : 7 .  EXIT  TO  MAIN  MENU  : 

0  16,18  SAY  ’ :  : 

0  17,18  SAY  ’ :  : 

0  18,18  SAY  ’ :  : 

0  19,18  SAY  ’ 

SET  COLOR  TO  W+ 

0  17,30  SAY  ’ENTER  CHOICE  - > : ’ GET  upcode  PICT  ’9’  RANGE  1,7 
READ 

SET  COLOR  TO  W 

CLEAR 

RETURN 

*  eof  updtmenu 

MM*KM**HH**HM***HH*  PROGRAM  UPDATE 
CLEAR 

SET  TALK  OFF 

STORE  ’  ’  TO  updtcont 

PUBLIC  upcode 

DO  WHILE  UPPER( updtcont )  #  ’N’ 

DO  updtmenu 
DO  CASE 

CASE  upcode  -  1 
DO  add_pubs 
CASE  upcode  -  2 
DO  add  info 


,v 

.V 

W 


2 


DO  mod_pubs 
CASE  upcode  -  5 
DO  mod_info 
CASE  upcode  =  6 
DO  del_pub 


CASE 


upcode 

STORE 


ENDCASE 

ENDDO 

SET  TALK  ON 
RETURN 

H  eof  update. prg 


-  7 

N'  TO  updtcont 


. . . .  PROGRAM  ADD_PUBS  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  H  M  * 

*  This  program  insert  records  to  PUBS  file  and  records  logged 

*  data  into  USERLOG  file 

CLEAR 

SET  TALK  OFF 

M  open  required  files  for  processing 
SELECT  1 

USE  PUBS  index  control 
SELECT  2 
USE  USERID 
SELECT  3 


USE  USERLOG 

M 

dispaly  a 

window  on  the  screen 

0 

4 ,20 

SAY 

’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

0 

5 ,20 

SAY 

9 

0 

6,20 

SAY 

9 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww  : 

0 

7 ,20 

SAY 

9 

0 

8 , 20 

SAY 

9 

0 

9,20 

SAY 

9 

0 

10,20 

SAY 

9 

0 

11,20 

SAY 

9 

0 

12 ,20 

SAY 

9 

0 

13,20 

SAY 

9 

0 

14 , 20 

SAY 

9 

0 

15,20 

SAY 

9 

0 

16,20 

SAY 

’  WWWWWWWWW WWW WWWWWW W WWWWW W WWWW WW WW WWW V  WWW  WWW  w  w  w 

STORE  ’Y’  TO  add_cont 

STORE  .F.  TO  done 

DO  WHILE  UPPER( add_cont  )  -’Y’ 

0  5,30  SAY  ’ADD  NEW  RECORD  TO  PUBS  FILE’ 

M  Initialize  memory  variables 


STORE  ’ 

9 

TO 

tc  t  r i_no 

STORE  ’ 

’  TO 

ts  title 

STORE  ’  ’ 

TO 

t 1 ocker 

STORE  ’ 

9 

TO 

tc 1  ass 

STORE  ’ 

9 

TO 

tupdate 

STORE  ’ 

9 

TO 

tsub_cus  t 

0  15,26  SAY  ’ENTER  CONTROL  NUMBER  - > ’ GET  tctrl_no 
PICT  ’99999’ 

READ 

*  check  if  record  exist  in  PUBS  file 

SELECT  1 

FIND  &  tc  t  r  1  no 
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IF  EOF  (  ) 

*  record  does  not  exits  in  the  PUBS  file 

*  read  user’s  inputs  from  the  keyboard 
CLEAR 

0  2 ,00  TO  14 ,79  DOUBLE 

0  5,20  SAY  ’ADDING  NEW  RECORD  TO  PUBS  FILE  ’ 

0  7,20  SAY  ’  CONTROL  NUMBER  :’  GET  tctrl_no 

0  8,20  SAY  ’  SHORT  TITLE  :’  GET  ts_title 

0  9,20  SAY  ’  LOCKER  NUMBER  :’  GET  tlocker 

0  10,20  SAY  ’  CLASSIFICATION  :’  GET  tclass 

0  11,20  SAY  ’  SUB-CUSTODIAN  :’  GET  tsub_cust 

0  12,20  SAY  ’  PUB  LAST  UPDATE:’  GET  tupdate  PICT  ’99/99/99’ 

READ 

*  append  new  record  to  PUBS  file 
APPEND  BLANK 

REPLACE  ctrl_no  WITH  tctrl_no , s_title  WITH  ts_title 
REPLACE  locker  WITH  t locker , c lass  WITH  tsub_cust 
REPLACE  update  WITH  CTOD ( tupdate  ) 

STORE  .T.  TO  done 

H  control  number  exits  in  the  PUBS  file 
ELSE 

SET  COLOR  TO  W* 

0  15,21  SAY  ’  CONTROL  #  ALREADY  EXIST 

DO  delay 
SET  COLOR  TO  W 
ENDIF 

SET  COLOR  TO  W+ 

0  15,22  SAY  ’  MORE  INSERTIONS?  ( Y/N )-— > 

READ 

SET  COLOR  TO  W 
SET  CONSOLE  OFF 
WAIT  TO  add_cont 
SET  CONSOLE  ON 
ENDDO 

*  update  USERLOG  file 
IF  done 

SELECT  2 

LOCATE  FOR  password  -UPPER(psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WITH  B->username,  task  WITH  ’INSERTION’ 
REPLACE  progname  WITH  ’ADD  PUBS’ 

REPLACE  logdate  WITH  DATE ( 7 . 1 ogt ime  WITH  TIME( ) 

ENDIF 

CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  inserpub.prg 
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HHH***H«*M*HMK»**HH  PR 0 GR AM  A D D_ I NF 0  **H*HHH**HH»*H**HMH*«* 

*  This  program  inserts  records  to  PUBSINFO  file  and  records 

*  logged  data  into  USERLOG  file 

CLEAR 

SET  TALK  OFF 

*  open  required  files  for  processing 
SELECT  1 

USE  PUBSINFO  index  ps_title 

SELECT  2 

USE  USERID 

SELECT  3 

USE  USERLOG 

*  display  a  window  on  the  screen 

@  4,10  SAY  ’wwwvww¥v¥wvn™wvmrvvwwvvwwwvnfwwwtf¥¥w¥www 
@  5,10  SAY  ’ :  : 

@  6,10  SAY  wvwwwwwwwwvwvwt^twwwvwwvwwwwwwvwwwwwwwwwwwww  : 


’wwwwwwwwwwwwwwvwwvwvvwwwwwwwwwwwwwwwwwwwwwww 


STORE  ’Y’  TO  addinfo 

STORE  .F.  TO  done 

DO  WHILE  UPPER  (addinfo)  -  ’Y’ 

@5,18  SAY  ’ADD  NEW  RECORD  TO  PUBSINFO  FILE’ 


*  initialize  memory  variables 


STORE  ’ 

STORE  ’ 

STORE  ’ 

STORE  ’ 

STORE  ’ 

@  15,11  SAY  ’ 
READ 


SHORT  TITLE  — : 


TO 
’  TO 
TO 
TO 
TO 

title 


t s_t i t 1 e 
t l_t i t 1 e 
tall owance 
tonboard 
tdoc_type 


*  check  if  record  exist  in  PUBS  file 
SELECT  1 
FIND  &ts  title 
IF  EOF  (T 

*  record  does  not  exist  in  PUBSINFO  file 


48 


*  read  user’s  inputs  form  keyboard 
CLEAR 

9  2,00  TO  14,79  DOUBLE 

9  4,18  SAY  ’ADDING  NEW  RECORD  TO  PUBSINFO  FILE  ’ 

9  7,12  SAY  ’SHORT  TITLE:*  GET  ts_title 

0  8,12  SAY  ’LONG  TITLE:  '  GET  tl_title 

0  9,12  SAY  ’ALLOWANCE:  ’  GET  tallowance 

9  10,12  SAY  ’ONBOARD:  ’  GET  tonboard 

9  11,12  SAY  ’DOC-TYPE:  ’  GET  tdoc_type 

READ 

*  append  new  record  to  PUBSINFO  file 
APPEND  BLANK 

REPLACE  s_title  WITH  ts_title,  l_title  WITH  tl_title 
REPLACE  allowance  WITH  VAL( tal lowance  ) 

REPLACE  onboard  WITH  VAL( tonboard  ) 

REPLACE  doc_type  WITH  tdoc_type 
STORE  .T.  TO  done 

*  short  title  exist  in  the  PUBSINFO  file 
ELSE 

9  15,12  SAY  ’ 

SET  COLOR  TO  W* 

9  15,12  SAY  ’SHORT  TITLE  ALREADY  EXIST’ 

DO  delay 

SET  COLOR  TO  W 

ENDIF 

9  15,12  SAY  ’  INSERT  MORE  RECORDS?  (Y/N)->* 

SET  CONSOLE  OFF 
WAIT  TO  addinfo 
SET  CONSOLE  ON 
ENDDO 

*  update  USERLOG  file 
IF  done 
SELECT  2 

LOCATE  FOR  password  -  UPPER(psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WITH  B- >username ,  task  WITH  ’INSERTIONS’ 
REPLACE  progname  WITH  add  info,  logdate  WITH  DATE(  ) 
REPLACE  logtime  WITH  TIMET) 

ENDIF 

CLEAR 

CLOSE  DATABASES 
RETURN 


***hkk*k***hh*h****  PROGRAM  ADD  DEST  *m**hmh**»****h»kh**m* 


H  This  program  inserts  record  to  DESTRUCT  file  and  update  the 
*  USERLOG  file 


CLEAR 

SET  TALK  OFF 

H  open  required  files  for  processing 
SELECT  1 

USE  destruct  INDEX  dcontrol 

SELECT  2 

USE  userid 

SELECT  3 

USE  userlog 


*  display  a 
0  8,20  SAY 

0  9,20 

0  10,20 
0  11,20 
0  12,20 
0  13,20 
0  14,20 
0  15,20 
0  16,20 
STORE  ’Y’ 
STORE  .F. 


WVWVWWWWVWVV¥VW¥VVWVW¥W¥WWWV¥W¥WWW 


window  on  the  screen 

'  wwwwwwwwwwwwwwwwwwwwwwwwwwwvwwwwwwwwwwwwwwwwww 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 

SAY  ’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 
TO  add_cont 
TO  done 


DO  WHILE  UPPER( add_cont )  -’Y’ 
@9,23  SAY  'ADD  NEW  RECORD 


TO  DESTRUCT  FILE 


*  initialize  memory  variables 
STORE  ’ 

STORE  ’ 

STORE  ’ 


TO  tctrl_no 
TO  ts_title 
TO  td  date 


0  15,25  SAY 
READ 
SELECT  1 
FIND  &tctrl_no 
IF  EOF (  ) 

*  record  does 

*  read  user ’ s 
CLEAR 

0  09,15 


’ENTER  CONTROL  #  - > : ’ GET  tetri  no  PICT  ’99999’ 


not  exist 
input 


in  the  DESTRUCT  file 


@11 
0  12 
O  13 
READ 


TO  15,60  DOUBLE 
23  SAY  ’CONTROL  NUMBER :’ GET  tctrl_no 
23  SAY  ’SHORT  TITLE  : ’ GET  ts_title 
23  SAY  ’DATE  DESTROYED :’ GET  td  date  PICT 


’ 99/99/99 


“append  new  record  to  DESTRUCT  file 
APPEND  BLANK 

REPLACE  Ctrl  no  WITH  tetri  no,  s  title  WITH  ts  title 
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a 


REPLACE  d_destruct  WITH  CTOD ( td_date  ) 

STORE  .T.  TO  done 

H  control  number  exist  in  the  DESTRUCT  file 
ELSE 

SET  COLOR  TO  W* 


■3 

@  15,25  SAY  ’ 

■  * 

■> 

DO  delay 

■3 

SET  COLOR  TO 

fc: 

ENDIF 

| 

SET  COLOR  TO  W+ 

0  15,25  SAY  ’ 

READ 

■>’ 

SET  COLOR  TO  W 

■v 

SET  CONSOLE  OFF 

£ 

WAIT  TO  add  cont 

■ 

SET  CONSOLE  ON 

9 

ENDDO 

*  update  USERLOG  fi 

IF  done 

V- 

SELECT  2 

tx 

LOCATE  FOR  PASSWORD 

MORE  INSERTIONS?  (Y/N) — > 


LOCATE  FOR  PASSWORD  -  UPPER(psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WITH  B- >username ,  task  WITH  ’INSERTION’ 
REPLACE  progname  WITH  ’INS  DEST ’  ,  logdate  WITH  DATE(  ) 

REPLACE  logtime  WITH  TIME  T) 

END  IF 
CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  add_dest.prg 

MMMH**M***#*MH*HHH»  PROGRAM  MOD_PUB  *H*HH**«H*H*HHHM**HH*HH 

*  This  program  modifies  records  in  the  PUBS  file  and  updates 

*  USERLOG  file 

CLEAR 

SET  TALK  OFF 

*  open  required  the  files  for  processing 
SELECT  1 

USE  pubs  INDEX  control 

SELECT  2 

USE  userid 

SELECT  3 

USE  userlog 

STORE  . F.  TO  done 

STORE  ’Y’  TO  modicont 

SELECT  1 

DO  WHILE  UPPER ( mod i cont )  =  ’Y’ 

STORE  ’  ’  TO  tetri  no 


*  display  window  on  the  screen 


© 

4,20 

SAY 

’  wwwwwwwwwwwwwvvvvvwwwwwvwwwwvwwwvwwwwww 

© 

5,20 

SAY 

9 

© 

© 

6,20 

7,20 

SAY 

SAY 

f 

9 

wwTvwwwwwvrwwwvrwwvwwwwwvwwwwwwwwwwwwww  : 

© 

8,20 

SAY 

9 

© 

9 ,20 

SAY 

9 

0 

10,20 

SAY 

9 

© 

11,20 

SAY 

9 

0 

12,20 

SAY 

9 

0 

13,20 

SAY 

9 

© 

14,20 

SAY 

9 

© 

15,20 

SAY 

9 

© 

16,20 

SAY 

'  WWWWWWVWWWWTVWWW~WWWWWWWWWWWW~WWWWWWWWWWWWWWWW 

© 

5,26 

SAY 

’MODIFY  RECORDS  IN  PUBS  FILE’ 

© 

15,26 

SAY 

’ENTER  CONTROL  NUMBER  - > ’ GET  tetri  no  PICT; 

99999  ’ 


READ 


*  check  if  record  to  be  modified 
FIND  &tctrl_no 
IF  .NOT.  EOF  ( ) 


*  initialize  memory  variables 


STORE  s_ti tie 
STORE  locker 
STORE  class 
STORE  update 
STORE  sub  cust 


TO  ts_title 
TO  tlocker 
TO  tclass 
TO  tupdate 
TO  tsub  cust 


exist 


in  PUBS  file 


*  read  user’s  input 
CLEAR 

@  2,05  TO  14,74  DOUBLE 

@  4,25  SAY  ’MODIFYING  PUBS 

@  5,25  SAY  ’ **MH*MH**#**H*) 


FI 


0  7 
©  8 
©  9 
@  10 
©  11 
©  12 
READ 


20  SAY  ’CONTROL  NUMBER 
20  SAY  ’SHORT  TILTE 
20  SAY  ’LOCKER  NUMBER 
20  SAY  ’CLASSIFICATION 
20  SAY  ’LAST  UPDATE 
20  SAY  ’SUB-CUSTODIAN 


LE’ 

(  *»  H  ’ 

GET 

GET 

GET 

GET 

GET 

GET 


tctr l_no 
ts_ti tie 
tlocker 
tclass 
tupdate 
tsub  cust 


*  replace  changed  fields 

REPLACE  s_t i tl e  WITH  ts_title,  locker  WITH  tlocker 
REPLACE  class  WITH  tclass,  sub_cust  WITH  tsub_cust 
REPLACE  update  WITH  tupdate 
STORE  .T.  TO  done 

*  record  to  be  modified  does  not  exist  in  PUBS  file 
ELSE 

SET  COLOR  TO  W* 
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0  15,25  SAY  ’RECORD  DOES  NOT  EXIST  IN  DATABASE’ 

DO  delay 
SET  COLOR  TO  W 
END  IF 

0  15,25  SAY  ’ 

0  15,25  SAY  ’MORE  MODIFICATION?  (Y/N)— >:’ 

SET  CONSOLE  OFF 
WAIT  TO  modlcont 
SET  CONSOLE  ON 
CLEAR 

ENDDO 

*  update  USERLOG  file 
IF  done 

SELECT  2 

LOCATE  FOR  password  -  UPPER(psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WITH  B->username,  task  WITH  ’MODIFICATION’ 
REPLACE  progname  WITH  ’MOD  PUB’,  logdate  WITH  DATE( ) 
REPLACE  logtime  WITH  TIME(7 
END  IF 

SET  TALK  ON 
CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  mod_pub.prg 


H»«»»**»H***H*H„»*»  PROGRAM  MOD_INFO . PRG 

H  This  program  modifies  records  in  the  PUBSINFO  file  and 

*  updates  USERLOG  file 

CLEAR 

SET  TALK  OFF 

*  open  required  files  for  processing 
SELECT  1 

USE  pubsinfo  INDEX  ps_title 

SELECT  2 

USE  userid 

SELECT  3 

USE  user  log 

STORE  . F.  TO  done 

STORE  ’Y’  TO  modlcont 

SELECT  1 

DO  WHILE  UPPER ( mod i cont  )  -  ’Y’ 

STORE  ’  ’  TO  ts_t i t 1 e 

*  display  a  window  on  the  screen 

®  4,2  0  SAY  ’  WWWWWW¥WV¥WWWWWWWWW¥WWVWWWWWVWWWWW\v’WWWWWWVWWWU'  ’ 

@  5,20  SAY  ’  :  :  ’ 
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wwvwwwwwvwwvwwvw~www"wwww"www"www'wwwwwwwwwwwwww 


0  6,20  SAY 

0  7,20  SAY 

0  8,20  SAY 

0  9,20  SAY 

0  10,20  SAY 
0  11,20  SAY 
0  12,20  SAY 
0  13,20  SAY 
0  14,20  SAY 
0  15,20  SAY 

@  16,20  SAY  ’  WVWVWWVVWWV¥VWW¥WWVVWVWVVVWWW¥WW¥WWWWW 
0  5,25  SAY  ’  MODIFY  RECORD  IN  PUBSINFO  FILE  ’ 

@  14,21  SAY  ’  ENTER  SHORT  TITLE  ->:’  GET  ts  title 
READ 

0  14,46  SAY  ’  : 

*  check  If  record  to  be  modified  exists  in  PUBSINFO  file 
FIND  &ts_title 

IF  .NOT.  EOF (  ) 

*  record  exists  in  PUBSINFO  file 

*  Initialize  memory  variables 
STORE  l_t i tie  TO  tl_title 
STORE  allowance  TO  tallowance 
STORE  onboard  TO  tonboard 
STORE  doc_type  TO  tdoc_type 

**  read  user’s  data  from  keyboard 
CLEAR 

0  2,05  TO  13,74  DOUBLE 

0  4,25  SAY  ’MODIFYING  PUBSINFO  FILE’ 

@  5,25  SAY  *  **H*****H*#**«»**«KH*HH*  ’ 

0  7,10  SAY  ’SHORT  TITLE:’  GET  ts_title 

0  8,10  SAY  ’LONG  TITLE  :’  GET  tl_tltle 

0  9,10  SAY  ’ALLOWANCE  :’  GET  tallowance 

0  10,10  SAY  ’ONBOARD  :’  GET  tonboard 

@  11,10  SAY  ’DOC.  TYPES  :’  GET  tdoc_type 

READ 

*  replace  change  fields 

REPLACE  l_title  WITH  tl_title,  allowance  WITH  tallowance 
REPLACE  onboard  WITH  tonboard,  doc_type  WITH  tdoc_type 
STORE  .T.  TO  done 

*  record  to  be  modified  does  not  exist  in  the  PUBSINFO  file 
ELSE 

SET  COLOR  TO  W* 

0  14,22  SAY  ’RECORD  DOES  NOT  EXIST  IN  THIS  FILE 
DO  delay 
SET  COLOR  TO  W 
ENDIF 

0  14,22  SAY  ’ 

SET  CONSOLE  OFF 
WAIT  TO  modicont 
SET  CONSOLE  ON 


MORE  MODIFICATION?  (Y/N)->: 


CLEAR 

ENDDO 


*  update  USERLOG  file 
IF  done 

SELECT  2 

LOCATE  FOR  password  -  UPPER(psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WIT1!  B->username,  task  WITH  ’MODIFICATION 
REPLACE  progname  WITH  ’MOD  INFO’,  logdate  WITH  DATE( ) 
REPLACE  logtime  WITH  TIME(7 
END  IF 

SET  TALK  ON 
CLEAR 

CLOSE  DATABASES 
RETURN 

H  eof  mod_lnfo.prg 


MHHHHHHHMHHHMMHMHM*  PROGRAM  DEL_PUB  ***H*«HHH»»*«H«*«H*H**« 

*  This  program  deletes  records  from  the  PUBS  and  PUBSINFO  fil 

*  and  also  update  teh  USERLOG  file 
CLEAR 

SET  TALK  OFF 

**  open  required  files  for  proccessing 
SELECT  1 

USE  pubs  INDEX  s_title 
SELECT  2 

USE  pubsinfo  INDEX  ps_title 
SELECT  3 
USE  userid 
SELECT  4 


USE  userlog 

* 

display  a 

window  on  the  screen 

0 

4 ,20 

SAY 

9  V/WVWVVVW¥¥VV¥VVVW¥¥VVWVVVWW¥VWVWVVWWWWWWWW 

9 

5 ,20 

SAY 

* 

9 

6,20 

SAY 

’  wwwwvwwwwwwv"fcrv*ri*rforvrv*rwwwwvwwwwwww^  : 

9 

7,20 

SAY 

9  # 

9 

8,20 

SAY 

9 

9 

9 ,20 

SAY 

f 

9 

10,20 

SAY 

9 

9 

11,20 

SAY 

9 

9 

12 , 20 

SAY 

9 

9 

13 , 20 

SAY 

9 

9 

14 ,20 

SAY 

9 

9 

15,20 

SAY 

9 

9 

16,20 

SAY 

’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

,  .H  A  *4 


STORE  ’Y’  TO  deletecont 
STORE  0  TO  countl,  count2 
STORE  .F.  TO  done 
DO  WHILE  UPPER( deletecont  )  =  ’Y’ 

@5,22  SAY  ’ 

0  5,22  SAY  'DELETE  RECORD  FROM  PUBS  AND  PUBSINFO  FILE' 
STORE  ’  ’  TO  ts_title 

@  15,21  SAY  'ENTER  SHORT  TITLE  ->:’  GET  ts_title 
READ 

*  check  if  the  record  to  be  deleted  is  In  the  PUBS  file 
SELECT  1 
FIND  &ts_t 1  tie 
IF  .NOT.  EOF (  ) 

*  record  exist  In  the  PUBS  file 

*  display  record  to  be  deleted 
CLEAR 

@  2,05  TO  13,74  DOUBLE 

@  4,20  SAY  '  DELETING  RECORDS  FROM  THE  PUBS  FILE  ’ 

@  5,20  SAY  ’  ***M***MH#»*H*H***H**HHHHHH*HHH»*KH  ’ 

@  7,23  SAY  'CONTROL  NUMBER  GET  ctrl_no 

@  8,23  SAY  'SHORT  TITLE  :'  GET  s_title 

@  9,23  SAY  'LOCKER  NUMBER  GET  locker 

@  10,23  SAY  'CLASSIFICATION:'  GET  class 

@  11,23  SAY  'LAST  UPDATE  : ’  GET  update 

@  12,23  SAY  'SUB-CUSTODIAN  GET  sub_cust 

READ 

"  user  ensure  it  is  the  record  to  be  deleted 
@  15,40  SAY  ’ 

@  15,21  SAY  'CONFIRM  DELETIONS  (Y/N)?  — >:  ’ 

SET  CONSOLE  OFF 
WAIT  TO  confirm 
SET  CONSOLE  ON 

*  delete  the  record  from  PUBS  file 
IF  UPPER( confirm  )  -  'Y' 

DELETE 

STORE  .T.  TO  done 

STORE  countl  +  1  TO  countl 

H  delete  the  record  from  PUBSINFO  file 
SELECT  2 
FIND  &t s_t i 1 1 e 
IF  .NOT.  EOF (  ) 

DELETE 

STORE  count2  +1  count2 
ENDIF 

*  do  not  delete  record  from  PUBS  file 
ELSE 

STORE  'F'  TO  deletecont 


«*.  ■ r.  s,  ' .  ••  - 
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CLEAR 
END  IF 


*  record  to  be  deleted  does  not  exist  in  database 
ELSE 

0  15,40  SAY  ' 

0  15,21  SAY  ’RECORD  DOES  NOT  EXIST  IN  DATABASE’ 
DO  delay 
0  15,25  SAY  ’ 

END  IF 

0  15,21  SAY  ’  MORE  DELETIONS?  (Y/N)  =>:’ 

SET  CONSOLE  OFF 
WAIT  TO  deletecont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 


*  pack  database  files  for  permanent  deletion  of  files  deleted 
w  previously  by  the  program 


SELECT  1 
IF  countl  #  0 
0  12,20  SAY  ’ 
0  13,20  SAY  ’ 
0  15,20  SAY  ’ 
PACK 

SELECT  2 
IF  count 2  #  0 
PACK 
END  IF 
END  IF 

CLOSE  DATABASES 


DATABASE  FILES  ARE  IN  THE  PROCESS  OF  BEING’ 
PACKED  AND  REINDEXED.  ’ 

Please  be  patient.  It  may  take  a  while’ 


*  update  USERLOG 
IF  done 

SELECT  3 
USE  userid 

LOCATE  FOR  PASSWORD  -  UPPER (psw) 

SELECT  4 
USE  userlog 
APPEND  BLANK 

REPLACE  username  WITH  C->username,  task  WITH  ’DELETION’ 
REPLACE  progname  WITH  ’DEL  PUB’.logdate  WITH  DATE  () 
REPLACE  logtime  WITH  time(7 
ENDIF 

SET  TALK  ON 
CLEAR 

CLOSE  DATABASES 
RETURN 

H  eof  del_pub.prg 
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b.  Report  Sub-Menu 


PROGRAM  RPTMENU  **H«*«»*H»**»*HHHMKM**« 

*  This  program  displays  on  the  screen  the  database  report 

*  generator  sub-menu. 

CLEAR 

PUBLIC  rptcode 
STORE  0  TO  rptcode 

@  2,14  SAY  ’  WWWV\WmrVVW¥WV¥WWVWWWW¥¥¥VWW¥¥WWW¥WWWWW  ’ 

@  3,14  SAY  ’mm  mm’ 

@  4,14  SAY  ’  WWWVWW¥WWWWWWWWWWV¥WWV¥VWVVnm?W¥WWVWW  ’ 

SET  COLOR  TO  W* 

@  3,20  SAY  ’DATABASE  REPORT  GENERATOR  MENU’ 

SET  COLOR  TO  W 

@  6,14  SAY  ' wwwwwvwwwwwwwwwwwwvrwvwwwwwwvhrhrww^^ 

@  7,14  SAY  ’ :  :  ’ 

@  8,14  SAY  ’:  1.  ALLOWANCE  LISTING  OF  PUBLICATIONS  :’ 

@  9,14  SAY  ’:  2.  ALPHABETICAL  LISTING  OF  PUBLICATIONS  :’ 

@  10,14  SAY  ’:  3.  LIST  OF  PUBLICATIONS  BY  LOCATIONS  :’ 

@  11,14  SAY  ’:  4.  LIST  OF  PUBLICATIONS  BY  SUB-CUSTODIAN  :’ 

@  12,14  SAY  ’:  5.  LIST  OF  DESTRUCTION  RECORDS  :’ 

0  13,14  SAY  ’:  6.  EXIT  TO  MAIN  MENU  :’ 

0  14,14  SAY  ’  :  :  ’ 

0  15,14  SAY  ’ :  :  ’ 

0  16,14  SAY  ’  :  :  ’ 

0  17,14  SAY  ’  WWWW¥¥¥tf¥tfWWWWWWWW¥W¥WWWtfW¥¥tfW¥¥W¥VWW¥  ’ 

SET  COLOR  TO  W+ 

0  16,16  SAY  ’ENTER  CHOICE  GET  rptcode  PICT  ’9’  RANGE  1,6 

READ 

SET  COLOR  TO  W 
RETURN 

*  eof  rptmenu.prg 


PROGRAM  REPORT 

CLEAR 

STORE  ’  ’TO  rptcont 
PUBLIC  rptcode 
DO  WHILE  rptcont  #  ’n’ 

DO  rptmenu 
DO  CASE 

CASE  rptcode  -  1 

DO  1 1st _ 1 

CASE  rptcode  -  2 
DO  1 i st_2 
CASE  rptcode  -  3 
DO  list  3 


58 


4 


CASE  rptcode  - 
DO  list_4 
CASE  rptcode  =  5 
DO  1 i st_5 
CASE  rptcode  -  6 

STORE  ’n’  TO  rptcont 

ENDCASE 

ENDDO 

RETURN 

*  eof  report. prg 


(  1  )  LISTING/REPORT  PROGRAMS 


PROGRAM  LIST_1  ♦*  »  H  *  »  H  *  K  *  H  *  H  H  H  *  H  *  H  *  H  M  »  H  H 

M  This  program  provides  screen  display  or  printer  output  of  the 

*  total  number  of  publications  that  are  on  the  allowance  list 

*  against  what  is  onboard  by  document  type. 

CLEAR 

SET  TALK  OFF 

STORE  .F.  TO  printer 

STORE  ’  *  TO  done 

STORE  »  ’  TO  ans 

USE  pubsinfo  INDEX  doc__type 

DO  WHILE  UPPER ( done )  #  ’N’ 

@  3,10  TO  9,65  DOUBLE 

0  4,20  SAY  ’  DO  YOU  WANT  TO  PRINT  OUTPUT  ?  * 

0  5,20  SAY  ’  PRINTER  -  P 

0  6,20  SAY  ’  SCREEN  -  S 

0  8,25  SAY  ’  ENTER  S  OR  P  ->:’  GET  ans 

READ 

IF  UPPER( ans  )  -  ’ P ’ 

STORE  .T.  TO  printer 
CLEAR 

0  15,20  SAY  ’TURN  YOUR  PRINTER  ON’ 

WAIT  TO  cont 
END  IF 


* 


STORE  ’ 
CLEAR 
0  7,10 

0  9  , 

@11 
0  12 
0  13 
@15 
READ 


TO  choice 


21 

21 

21 

21 

25 


TO  16 
SAY 
SAY 
SAY 
SAY 
SAY 


65  DOUBLE 

SELECT  THE  DOCUMENT  TYPE 
Secret  =*  S 
Intel  1 igence 
NTP/ATP  Pubs 
ENTER  CHOICE  — 


I 

P 


GET  choice 


59 


■V 

V 


R 


IF  printer 
DO  CASE 

CASE  UPPER( choice )  =  'S’ 

SET  PRINTER  ON 

REPORT  FORM  listl  FOR  doc_t.ype  -  "SECRET" 
SET  PRINTER  OFF 
CASE  UPPER( choice )  =  ’I’ 

SET  PRINTER  ON 

REPORT  FORM  listl  FOR  doc_type  -  "INTEL" 
SET  PRINTER  OFF 
CASE  UPPER( choice )  =  *P' 

SET  PRINTER  ON 

REPORT  FORM  listl  FOR  doc_type  -  "NWP" 

SET  PRINTER  OFF 

ENDCASE 

ELSE 

DO  CASE 

CASE  UPPER( choice )  -  ’S’ 

REPORT  FORM  listl  FOR  doc_type  -  "SECRET" 
? 

WAIT  TO  cont 
CASE  UPPER( choice )  =  ’I’ 

REPORT  FORM  listl  FOR  doc_type  -  "INTEL" 

? 

WAIT  TO  cont 
CASE  UPPER ( choice )  -  *P’ 

REPORT  FORM  listl  FOR  doc_type  -  "NWP" 

? 

WAIT  TO  cont 


ENDCASE 

END  IF 

GO  TOP 

K 

CLEAR 

■ 

STORE  ’ 

’  TO 

all  done 

s’ 

©  15,20 

SAY 

’  DO  YOU 

WANT  TO  SEE  OR  PRINT  * 

s 

©  16,20 

SAY 

’  THE  LIST  AGAIN  ? 

:%• 

©  18,20 

SAY 

’  ENTER  " 

Y"  OR  "N"  - > : ’  GET  all 

s' 

READ 

Ts 

IF  UPPER (all 

_done  )  # 

*  Y  ’ 

) 

STORE 

:  ’N’ 

TO  done 

y 

END  IF 

V 

'j 

ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  1 i s t_l . prg 

*********h*hh*h*mh«  PROGRAM  L I  ST_2  *  *  **  H  M  *  *  *  *  **  *  *  "  "  *  *  *  "  *  *  *  *  *  *  * 
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ft 


*  This  program  provides  display  or  printer  output  of  the 
M  publications  in  an  alphabetical  order.  Short  title  and 

*  long  title 

CLEAR 

SET  TALK  OFF 

STORE  .F.  TO  printer 

STORE  *  ’  TO  done 

STORE  »  ’  TO  ans 

USE  pubsinfo  INDEX  ps  title 

DO  WHILE  UPPER ( done  )  1  ’N’ 

0  3,10  TO  9,65  DOUBLE 

0  4,20  SAY  '  DO  YOU  WANT  TO  PRINT  OUTPUT  ?  ’ 

0  5,20  SAY  ’  PRINTER  =  P 

0  6,20  SAY  ’  SCREEN  =  S 

0  8,25  SAY  ’  ENTER  S  OR  P  =  >:’  GET  ans 

READ 

IF  UPPER ( ans  )  -  ’P’ 

STORE  .T.  TO  printer 
CLEAR 

0  15,20  SAY  ’TURN  YOUR  PRINTER  ON’ 

WAIT  TO  cont 
END  IF 
IF  printer 

SET  PRINTER  ON 
REPORT  FORM  list2 
SET  PRINTER  OFF 
ELSE 

CLEAR 

REPORT  FORM  list2 
WAIT  TO  cont 
END  IF 
GO  TOP 
CLEAR 

STORE  ’  ’  TO  al l_done 

0  15,20  SAY  ’  DO  YOU  WANT  TO  SEE  OR  PRINT  ’ 

@  16,20  SAY  ’  THE  LIST  AGAIN  ’ 

0  18,20  SAY  ’  ENTER  "Y"  OR  "N"  GET  all_done 

READ 

IF  UPPER ( al l_done  )  #  ’Y’ 

STORE  ’N’  TO  done 
ENDIF 
ENDDO 
CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  1 i st_2 . prg 


**H**«H«*****MHHH»HH  PROGRAM  LIST_3 
CLEAR 


SET  TALK  OFF 

STORE  .F.  TO  printer 

STORE  ’  '  TO  done 

STORE  ’  ’  TO  ans 

USE  pubs  INDEX  locker 

DO  WHILE  UPPER ( done )  #  ’N’ 

9  3,10  TO  9,65  DOUBLE 

9  4,20  SAY  ’  DO  YOU  WANT  TO  PRINT  OUTPUT  ?  ’ 

9  5,20  SAY  ’  PRINTER  =  P 

9  6,20  SAY  ’  SCREEN  =  S 

9  8,25  SAY  ’  ENTER  S  OR  P  = > :  ’  GET  ans 

READ 

IF  UPPER (ans  )  =  ’P’ 

STORE  .T.  TO  printer 
CLEAR 

9  15,20  SAY  ’  TURN  YOUR  PRINTER  ON  ’ 

WAIT  TO  cont 
END  IF 
IF  printer 

SET  PRINTER  ON 
REPORT  FORM  list3 
SET  PRINTER  OFF 
ELSE 

CLEAR 

REPORT  FORM  list3 
WAIT  TO  cont 
END  IF 
GO  TOP 
CLEAR 

STORE  ’  ’  TO  al l_done 

9  15,20  SAY  ’  DO  YOU  WANT  TO  SEE  OR  PRINT  * 

9  16,20  SAY  ’  THE  LIST  AGAIN  ’ 

@  18,20  SAY  ’  ENTER  "Y"  OR  "N"  GET  all  done 

READ 

IF  UPPER ( al l_done )  #  ’Y’ 

STORE  ’N’  TO  done 
ENDIF 
ENDDO 
CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  1 i st_3 . prg 


KMHHHH  PROGRAM  LIST_4  "  *  *  *  * . *  *  *  *  *  * 

*  This  program  provides  display  or  printed  output  of  the 

*  publications  by  classification 


CLEAR 

SET  TALK  OFF 


W  V  W  V  .-  V  V 


jjj 


i.t 


.8 


i 


STORE  .F.  TO  printer 
STORE  ’  ’  TO  done 

STORE  ’  ’  TO  ans 

USE  pubs  INDEX  class 
DO  WHILE  UPPER ( done )  # 
CLEAR 


10  TO  9 
20  SAY 
20  SAY 
2  0  SAY 


0  8,25  SAY  ’  ENTER  S  0 

READ 

IF  UPPER(ans)  =  ’ P* 

STORE  .T.  TO  printer 
CLEAR 

0  15,20  SAY  ’  TURN  Y 
WAIT  TO  cont 
END  IF 
IF  printer 

SET  PRINT  ON 
REPORT  FORM  list4 
SET  PRINTER  OFF 
ELSE 

CLEAR 

REPORT  FORM  list4 
WAIT  TO  cont 
END  IF 
GO  TOP 
CLEAR 

STORE  ’  •  TO  all  done 


65  DOUBLE 

DO  YOU  WANT  TO  PRINT  OUTPUT  ? 
PRINTER  =  P 
SCREEN  =  S 

ENTER  S  OR  P  =>:  ’  GET  ans 


TURN  YOUR  PRINTER  ON 


TO  all_done 

AY  ’  DO  YOU  WANT  TO  SEE  OR  PRINT  * 

AY  ’  THE  LIST  AGAIN  ’ 

AY  ’  ENTER  "Y"  OR  "N"  GET  all  done 


e  15,20  SAY  ’  DO  YO 
0  16,20  SAY  ’  THE  L 
©  18,20  SAY  ’  ENTER 
READ 

IF  UPPER ( al l_done )  # 
STORE  ’N’  TO  done 
END  IF 
ENDDO 
CLEAR 

CLOSE  DATABASES 
RETURN 

*  eof  1 i s t_4 . prg 


PROGRAM  LIST_5 

*  This  program  provides  display  or  printer  output  of  the 

*  destruction  record  file 

CLEAR 

SET  TALK  OFF 

STORE  .F.  TO  printer 


■  '  a  m  ■ 


•  -  -  ■/  •  '  Jl  '  4 


>'* » *»*  -  •  #  %  .  *  «'*  * 'h'"  .*« .’O *s .+**]»?* 


STORE  ’  '  TO  done 
STORE  *  ’  TO  ans 
USE  destruct  INDEX  date 
DO  WHILE  UPPER ( done )  #  *N’ 

CLEAR 

0  3,10  TO  9,65  DOUBLE 

0  4,20  SAY  ’  DO  YOU  WANT  TO  PRINT  OUTPUT  ?  ’ 

@  5,20  SAY  ’  PRINTER  =  P 

0  6,20  SAY  ’  SCREEN  =  S 

@  8,25  SAY  *  ENTER  S  OR  P  - > : ’  GET  ans 

READ 

IF  UPPER (ans )  -  ’P’ 

STORE  .T.  TO  printer 
CLEAR 

@  15,20  SAY  '  TURN  YOUR  PRINTER  ON  ’ 

WAIT  TO  cont 
END  IF 
IF  printer 

SET  PRINT  ON 
REPORT  FORM  list5 
SET  PRINTER  OFF 
ELSE 

CLEAR 

REPORT  FORM  list5 
WAIT  TO  cont 
ENDIF 
GO  TOP 
CLEAR 

STORE  ’  ’  TO  all_done 

0  15.20  SAY  ’  DO  YOU  WANT  TO  SEE  OR  PRINT  ’ 

0  16,20  SAY  ’  THE  LIST  AGAIN  ’ 

0  18,20  SAY  *  ENTER  "Y"  OR  "N"  GET  all  done 

READ  “ 

IF  UPPER ( al l_done )  #  ’Y’ 

STORE  ’N’  TO  done 
ENDIF 
ENDDO 
CLEAR 

CLOSE  DATABASES 
RETURN 


c.  Adhoc  Sub-Menu 


*H**H#«*H*H*K**HMHM  PROGRAM  HOCMENU 

*  This  program  display  on  the  screen  the  adhoc  sub-menu 
CLEAR 

SET  TALK  OFF 
PUBLIC  adhocode 
STORE  0  TO  adhocode 

@  5,18  SAY  ’  WWW¥WWVWWVWWWWVVWWWWWWWWtfWWW¥¥VW¥WWWWW  ’ 

@  6,18  SAY  ’  :  :  ’ 

@  7,18  SAY  ’  WWWWWWWWWtfWVVWWWWVWWVWVWVWWW¥WVWV¥WW¥VW¥  ’ 

SET  COLOR  TO  W* 

@  6,30  SAY  ’  DATABSE  ADHOC  MENU  ’ 

SET  COLOR  TO  W 

@  8,18  SAY  ’ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ' 

@  9,18  SAY  ’ :  :  ’ 

@  10,18  SAY  *:  1.  LOCATION  OF  SPECIFIC  PUBLICATION 

@  11,18  SAY  2.  SUB -CUSTODIAN  OF  A  PUBLICATION 

@  12,18  SAY  3.  ALLOWANCE  OF  SPECIFIC  PUBLICATION 

@  13,18  SAY  4.  CLASSIFICATION  OF  SPECIFIC  PUBLICATION 

@  14,18  SAY  5.  LAST  UPDATE  OF  CERTAIN  PUBLICATION 

@  15,18  SAY  6.  EXIT  TO  MAIN  MENU 

@  16,18  SAY  *  :  :  ’ 

0  17,18  SAY  ’  :  :  ’ 

0  18,18  SAY  ’  :  :  ’ 

@  19,18  SAY  ’ ww\»rwvvrwvwwwwwwwwwwwwwwwwwwwwwvrv»rfcrvrvrv(a(rvtrvrv»rvrwr^^ 

SET  COLOR  TO  W+ 

@  17,30  SAY  ’ENTER  CHOICE  =  > :  ’  GET  adhocode  PICT  ’9’  RANGE  1,7 
READ 

SET  COLOR  TO  W 
CLEAR 

SET  TALK  ON 
RETURN 

*  eof  hocmenu.prg 


PROGRAM  ADHOC 

*  This  program  call  the  proper  adhoc  program  selected  from  the 

*  adhoc  sub-menu  by  users 

CLEAR 

STORE  ’  ’  TO  adhcont 

PUBLIC  adhocode 
DO  WHILE  adhcont  #  ’n’ 

DO  hocmenu 
DO  CASE 

CASE  adhocode  -  1 
DO  adhoc_l 
CASE  adhocode  =*  2 
DO  adhoc  2 
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CASE  adhocode  =  3 
DO  adhoc_3 
CASE  adhocode  =  4 
DO  adnoc_4 
CASE  adhocode  =  5 
DO  adhoc_5 
CASE  adhocode  =  6 

STORE  ’n’  TO  adhcont 

ENDCASE 

ENDDO 

RETURN 

*  eof  adhoc.prg 


(  1  )  ADHOC  PROGRAMS 


PROGRAM  ADHOC_l  *M**»*M****M*HKHHM***HH 

*  To  accept  a  specified  publication  and  provide  their  locker 

*  location 

CLEAR 

SET  TALK  OFF 
0  4,10  TO  13,69  DOUBLE 


18  SAY 
18  SAY 


18  SAY 
18  SAY 


’  The  purpose  of  this  adhoc  function  #  1  is’ 
’to  locate  a  specific  publication  for  the  user.’ 
’The  user  must  provide  the  exact  short  title  ’ 
’of  the  publication  as  previously  enter  in  the’ 
’database.  Otherwise  the  search  will  be  un¬ 
successful  and  frustrating.  ’ 


TO  cont 


WAIT 

CLEAR 


H  open  required  files  for  processing 
SELECT  1 

USE  pubs  INDEX  s_title 
SELECT  2 
USE  userid 
SELECT  3 
USE  userlog 
STORE  .F.  TO  done 
STORE  'Y’  TO  adhoc 1 
SELECT  1 

DO  WHILE  UPPER( adhocl )  -  ’  Y  ’ 

ACCEPT  ’ENTER  SHORT  TITLE  :  ’  TO  s_title 

FIND  &s_t i t 1 e 
IF  .NOT.  EOF  (  ) 

CLEAR 

@7,05  SAY  ’  SHORT  TITLE  ’ 

@7,30  SAY  ’  LOCKER  #  ’ 

DISPLAY  s_ti tie ,  locker 
DO  delay 
ELSE 

SET  COLOR  TO  W* 

0  15,25  SAY  ’  NO  SUCH  SHORT  TITLE  ’ 

DO  delay 
SET  COLOR  TO  W 
END  I F 

0  15,25  SAY  ’  MORE  INQUIRY?  (Y/N  )  =  =>:’  GET  adhocl 
READ 

SET  CONSOLE  OFF 
WAIT  TO  achocl 
SET  CONSOLE  ON 
CLEAR 


.  v  *-  V 


v  vrv.v _v _v 


v.v.v.-.-'vT 


ENDDO 

CLEAR 

SET  TALK  ON 
RETURN 

*  eof  adhoc_l.prg 


. . PROGRAM  ADH0C_2.PRG  H*»«*M*HH*H*MH*«HH* 

H  This  program  accepts  short  title  of  a  specific  publication 
*  and  provide  the  user  the  name  of  the  current  sub -cus tod  1  an 

CLEAR 

SET  TALK  OFF 
9  4,10  TO  13,69  DOUBLE 

9  6,18  SAY  ’The  purpose  of  this  ADHOC  function  #  2  is  to’ 

@  7,18  SAY  ’locate  the  current  sub-custodian  of  a  specific’ 

@  8,18  SAY  ’publication.  The  user  must  provide  the  exact  ’ 

@  9,18  SAY  ’short  title  of  the  publication  as  previously’ 

@  10,18  SAY  ’enter  in  this  database.  Otherwise  the  search’ 

@  11,18  SAY  ’will  be  unsuccesful  and  frustrating.’ 

? 

? 

WAIT  TO  cont 
CLEAR 

STORE  .F.  TO  done 

STORE  ’Y’  TO  adhoc2 

DO  WHILE  UPPER( adhoc2 )  -  ’Y’ 

ACCEPT  ’ENTER  SHORT  TITLE:  ’  TO  s_title 
USE  pubs  INDEX  s_tltle 
FIND  &s_title 
IF  .NOT.  EOF  (  ) 

DISPLAY  s_tltle,  sub_cust 
DO  delay 
ELSE 

SET  COLOR  TO  W" 

3  15,25  SAY  ’  NO  SUCH  SHORT  TITLE  ’ 

DO  delay 
SET  COLOR  TO  W 
END  I F 

9  15,25  SAY  ’  MORE  INQUIRY?  (Y/X  GET  adhoc2 

READ 

SET  CONSOLE  OFF 
WAIT  TO  adhoc2 
SET  CONSOLE  ON 
CLEAR 
ENDDO 
CLEAR 

SET  TALK  ON 
RETURN 


*  eof  adhoc_2.prg 


»»*HH*K**M*H*»H*«»H  PROGRAM  ADH0C_3  *  *  «  H  H  «  *  H  *  *  H  H  . . . 

*  This  program  accepts  short  title  of  a  specific  publication 
H  and  provide  the  user  the  current  allowance  and  current 

*  onboard  inventory. 

CLEAR 

SET  TALK  OFF 
TEXT 

The  purpose  of  this  ADHOC  function  #  3  is  to  provide 
current  allowance  vs  current  inventory  of  a  specified 
publication.  The  user  must  enter  the  exact  short 
title  of  the  publication. 

ENDTEXT 
WAIT  TO  cont 
CLEAR 

STORE  .F.  TO  done 

STORE  ’Y’  TO  adhoc 

DO  WHILE  UPPER( adhoc)  -  ’Y’ 

ACCEPT  ’  ENTER  SHORT  TITLE:  ’  TO  s_title 
USE  pubsinfo  INDEX  s_title 
FIND  &s_title 
IF  .NOT.  EOF  (  ) 

DISPLAY  s_tltle,  allowance,  onboard 
DO  delay 
ELSE 

SET  COLOR  TO  W* 

@  15,25  SAY  ’  NO  SUCH  SHORT  TITLE  ' 

DO  delaY 
SET  COLOR  TO  W 
ENDIF 

@  15,25  SAY  ’  MORE  INQUIRY?  (Y/N)  GET  adhoc 

READ 

SET  CONSOLE  OFF 
WAIT  TO  adhoc 
SET  CONSOLE  ON 
CLEAR 
ENDDO 
CLEAR 

SET  TALK  ON 
RETURN 

*  eof  adhoc_3.prg 


PROGRAM  ADH0C_4.PRG  *  *  * « *  *  *  * . * « * « 

*  This  program  accepts  short  title  of  a  specific  publication 
H  and  provide  the  user  the  classification  category  in  return 


b  9 


WWJVJW!*-  V.  VI  PJ 


PWW 


yrrwsnrv 


» -rj  »' 


6*. 


k 


CLEAR 

SET  TALK  OFF 
TEXT 

The  purpose  of  this  ADHOC  function  #  4  is  to  give  the 
classification  category  of  a  specific  publication.  The 
user  must  provide  the  exact  short  title  of  the  publication 
as  previously  enter  in  this  database.  Otherwise  the  search 
will  be  unsuccessful. 

ENDTEXT 
WAIT  TO  cont 
CLEAR 

STORE  .T.  TO  done 

STORE  ’ Y’  TO  adhoc 

DO  WHILE  UPPER( adhoc)  =  ’ Y’ 

ACCEPT  ’ENTER  SHORT  TITLE:  ’  TO  s_title 
USE  pubs  INDEX  s_title 
FIND  &s_ti tie 
IF  .NOT.  EOF  (  ) 

DISPLAY  s_ti tie ,  class 
DO  delay 
ELSE 

SET  COLOR  TO  W* 

@  15,25  SAY  ’  NO  SUCH  SHORT  TITLE  ’ 

DO  delay 
SET  COLOR  TO  W 
END  IF 

@  15,25  SAY  ’  MORE  INQUIRY?  ( Y / N  )»=>:’ GET  adhoc 
READ 

SET  CONSOLE  OFF 
WAIT  TO  adhoc 
SET  CONSOLE  ON 
CLEAR 
ENDDO 
CLEAR 

SET  TALK  ON 
RETURN 

*  eof  adhoc_4.prg 


. **«*HK**H**M  PROGRAM  ADH0C_5  ***M*M*K»HH*»*HHMHHM*H* 

H  This  program  accepts  short  title  of  a  specific  publication 
K  and  provide  the  last  update  made  on  this  publication 

CLEAR 

SET  TALK  OFF 
TEXT 

The  purpose  of  this  ADHOC  function  #  5  is  to  provide  the 
date  of  last  update  made  on  the  specified  publication. 
The  user  must  enter  the  exact  short  title  of  the  publi¬ 
cation  as  previously  enter  in  this  database.  Otherwise, 


the  search  will  be  unsuccessful. 

ENDTEXT 
WAIT  TO  cont 
CLEAR 

STORE  . F.  TO  done 

STORE  ’  Y’  TO  adhoc 

DO  WHILE  UPPER( adhoc)  -  ’Y’ 

ACCEPT  ’  ENTER  SHORT  TITLE:  ’  TO  s  title 
USE  pubs  INDEX  s_title 
FIND  &s_title 
IF  .NOT.  EOF (  ) 

DISPLAY  s_title,  update 
DO  delay 
ELSE 

SET  COLOR  TO  W* 

@  15,25  SAY  ’NO  SUCH  SHORT  TITLE’ 

DO  delay 
SET  COLOR  TO  W 
END  IF 

@  15,25  SAY  ’  MORE  INQUIRY?  (Y/N)— >:’  GET  adhoc 
READ 

SET  CONSOLE  OFF 
WAIT  TO  adhoc 
SET  CONSOLE  ON 
CLEAR 
ENDDO 
CLEAR 

SET  TALK  ON 
RETURN 

H  eof  adhoc_5.prg 
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£ 


d.  Help  Sub-Menu 


*HK***HKH***»*»H***  PROGRAM  HPMENU  *  *  *  *  *  *  *  *  *  *  *  *  *  * * * *  *  *  *  *  *  *  * 

*  This  program  display  on  the  screen  the  help  sub-menu 

*  called  by  DBHELP . PRG 

CLEAR 

SET  TALK  OFF 
PUBLIC  HELPCODE 
STORE  0  TO  HELPCODE 

@  6,2  0  SAY  ’  wwwwwwwwwwwwwwwwwwwwwwwvvwvvniwwwvviwilwwww  ’ 

0  7,20  SAY  ’  :  :  - 

@  8,2  0  SAY  ’  wwwwwwwww\s^wwwwwwwwwwwwwwwvAvTvwwwvrvrhrhrvrurvr^rwrwwww  ’ 

SET  COLOR  TO  W* 

0  7,30  SAY  ’  DATABASE  HELP  MENU  ’ 

SET  COLOR  TO  W 


0 

9 

,20 

SAY 

’ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ’ 

0 

10 

,20 

SAY 

y 

0 

11 

,20 

SAY 

y 

1 . 

UPDATE  HELP 

0 

12 

,20 

SAY 

y 

2  . 

REPORT  HELP 

0 

13 

,20 

SAY 

y 

3. 

ADHOC  HELP 

0 

14 

,20 

SAY 

» 

4  . 

EXIT  TO  MAIN  MENU 

0 

15 

,20 

SAY 

y 

0 

16 

,20 

SAY 

» 

0 

17 

,20 

SAY 

y 

0 

18 

,20 

SAY 

’  WWWtfWWWWtfWtfWWWWWWWWWWWWWWWVWVmWVVWVWWWW  ’ 

SET  COLOR  TO  W+ 

0  17,30  SAY  ’ENTER  CHIOCE  =>:’  GET  helpcode  PICT  ’9’  RANGE  1,4 
READ 

SET  COLOR  TO  W 
SET  TALK  ON 
CLEAR 
RETURN 

*  eof  hpmenu.prg 


*HH*HHMH»*M*4H*MHHH****H*  PROGRAM  DBHELP  »**«♦*«**  H  H  M  H  *  M  *  H  H  *  H 

*  Provide  an  online  help  reference. 

*  called  by:  mmenu.prg 

CLEAR 

SET  TALK  OFF 


0  2,00  TO  11,79  DOUBLE 


0 

4 ,20 

SAY  ’ 

HH 

HH 

EEEEEEE 

LL 

PPPPPP 

0 

5 ,20 

SAY  ’ 

HH 

HH 

EE 

LL 

PP  PP 

0 

6,20 

SAY  ’ 

HHHHHHH 

EEEEEE 

LL 

PpPPPP 

0 

7 , 20 

SAY  ’ 

HH 

HH 

EE 

LL 

PR 

0  8,20  SAY  ’  HH  HH  EEEEEEE  LLLLLLLL  PP 

@  9,20  SAY  ’  H*HHHMHMHMH#*****K«»**M***»*MM*»HH 

? 

? 

DO  delay 
TEXT 

The  security  manager  inventory  program  will  provide 
information  of  command’s  classified  publications.  To 
see  specific  information  and  guidance  on  each  type  of 
query,  type  the  appropriate  choice  or  task  code  number. 
The  following  information  pertains  to  many  of  the  reports 
and  summaries: 


Attribute 

type 

#  chars . 

Example 

CTRL  NO 

N 

4 

192 

S  TITLE 

C 

17 

NTP  4(G) 

L  TITLE 

C 

25 

NAVAL  COMMUNICATIONS  PROC 

LOCKER 

N 

1 

3 

CLASS 

C 

6 

UNCLAS,  CONF ,  SECRET 

UPDATE 

D 

- 

05/20/86 

SUB  CUST 

C 

10 

P02  SMITH,  SCPO  JONES 

ALLOWANCE 

N 

1 

3 

ONBOARD 

N 

1 

3 

DOC  TYPE 

C 

7 

NTP/ ATP,  INTEL,  SECRET 

ENDTEXT 

? 

? 

WAIT  TO  cont 

STORE  ’  ’  TO  he 1 pcont 

PUBLIC  he  1 pcode 

DO  WHILE  helpcont  #  ’n’ 


DO  hpmenu 
DO  CASE 

CASE  helpcode  =  1 
DO  help_l 
CASE  helpcode  =*  2 
DO  help_2 
CASE  helpcode  =  3 
DO  help_3 
CASE  helpcode  =  4 


STORE  ’n’  TO  helpcont 

ENDCASE 

ENDDO 

CLEAR 

RETURN 

*  eof  dbhelp.prg 
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(  1  )  HELP  PROGRAMS 


PROGRAM  HELP_1 

H  This  program  will  provide  an  on-line  help  note  for  user 
*  with  regards  to  updating  the  database. 

CLEAR 

SET  TALK  OFF 
TEXT 


The  "Update  Database  Menu"  is  divided  into  6  edit  choices. 
Option  1  will  allow  the  user  to  enter  the  new  publication 
into  the  PUBS. INFO  file.  You  must  provide  the  exact  infor¬ 
mation  to  the  database.  Failure  to  do  so  will  affect  the 
effectiveness  of  the  this  system.  The  rest  of  the  options 
in  this  menu  will  be  very  similar  to  option  1  and  will  be 
simple  if  you  just  follow  the  instruction  provided  in  the 
program.  Wait  for  the  prompt  and  enter  the  data  with  care. 


ENDTEXT 

WAIT  TO  cont 
CLEAR 

SET  TALK  OFF 
RETURN 

H  eof  help__l.prg 


PROGRAM  HELP_2  . 

*  This  program  will  provide  on-line  help  note  with  regards 

*  to  the  Report  generator  menu 

CLEAR 

SET  TALK  OFF 
TEXT 


The  "Report  Generator  Menu"  provide  five  listing  for  the 
the  user  of  this  system.  The  first  listing  is  the  "Report 
listing  of  publication  sorted  by  document  type  and  total 
by  allowance  vs  onboard.  The  second  listing  is  the  "Alpha¬ 
betical  Listing  of  all  Publication".  The  third  listing  is 
the  "Listing  of  of  Publication  Sorted  by  Locker  Number". 
The  fourth  listing  is  the  list  of  "Publication  Sorted  by 
Classification  Types".  Finally  the  "Destruction  Record 
Sorted  by  Date".  All  these  listings  are  formated  into  a 
report  format  (i.e.,  LIST_1.FRM)  which  could  be  modified 
easily  with  the  assist  query  of  the  dBASE  III. 
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ENDTEXT 


WAIT  TO  cont 

CLEAR 

RETURN 

*  eof  help_2.prg 


HH*HH*H«»**H*****MH  PROGRAM  HELP_3  ******HH*HHHK*HHHK**HHHH 
*  This  program  will  provide  an  on-line  help  note  with  regards 
H  to  database  adhoc  menu. 

CLEAR 

SET  TALK  OFF 
TEXT 


The  "Database  adhoc  menu"  is  divided  into  5  adhoc  queries. 
After  making  the  selection  the  user  will  prompt  to  answer 
question  ask  by  the  system.  The  adhoc  programs  were  prov¬ 
ided  to  the  users  as  sample  queries  that  could  valuable  to 
the  user. 


ENDTEXT 

WAIT  TO  cont 

CLEAR 

RETURN 


B.  MISCELLANEOUS  PROGRAMS 


*****HH**H*********  PROGRAM  FLAG  ************************** 
M  This  program  displays  the  U.S.  flag  for  the  main  program 
CLEAR 


0 

1,10 

SAY 

9 

0 

2 ,10 

SAY 

*  * 

M  * 

H 

#  *  * 

0 

3 , 10 

SAY 

t 

*  * 

H 

*  *  * 

0 

4,10 

SAY 

*  K 

*  M 

H 

H  *  * 

0 

5,10 

SAY 

9 

M  * 

* 

H  H  * 

O 

6,10 

SAY 

*  H 

*  H 

* 

*  *  * 

0 

7 ,10 

SAY 

9 

*  H 

* 

H  H  * 

O 

8 ,10 

SAY 

*  * 

*  H 

* 

*  H  * 

0 

9 ,10 

SAY 

y 

M  * 

* 

*  *  * 

0 

10 , 10 

SAY 

»  * 

*  * 

H 

*  H  » 

0 

16,10 

SAY 

9 

SET  COLOR  TO  W+ 

STORE  ’  ’  TO  blankl 

STORE  ’  ’  TO  b 1 ank2 

0  3,28  GET  blankl 

0  5,28  GET  blankl 

0  7,28  GET  blankl 

0  9,28  GET  blankl 

0  11,10  GET  b 1 ank2 
0  13,10  GET  b 1 ank2 
0  15,10  GET  blank2 
0  11,28  GET  blankl 
0  13,28  GET  blankl 
0  15,28  GET  blankl 

SET  COLOR  TO  W 

0  20,18  SAY  ’  UNITED  STATES  NAVY  SHIP  ’ 

RETURN 

M  eof  flag.prg 


. . PROGRAM  HEADING  *****  *  *  *  *  *  *  »  *  * . ***** 
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